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ABSTRACT 



Library' 

School 
93940 



Naval Postgraduate 
Monterey, California 



This paper describes a proposal for a revised Compiler 
Honitor System II (CBS-2). Primary emphasis is placed on 
design improvements to the CMS-2 compiler and language. 
Changes tc the Bonitcr and Librarian which support the above 
improvements are discu,ssed or implied where appropriate. A 
new concept is proposed, called multi-level programming, 
which allows the system designer to define the levels of 
language constructs which are appropriate for the various 
types of program modules in a large self-contained software 
system. The approach taken is to design a language and 
compiler-monitor system (CMS-2RS) which will facilitate the 
multi-level programming concept and the top-down programming 
method of software engineering in a production library 
environment. 
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INTRODUCTION 



The origins and design capabilities of the CMS-2 System 
must be explored before proposing any steps toward a revised 
language and compiler. This section describes the history 
of CMS-2 and the goals and objectives of this paper. The 
CMS-2 System and language are briefly described in Section 
II. Section III describes the revised language and compiler 
which will be called CMS-2BS. In Section IV, a detailed 
discussion of SLE(1) grammars, parsing algorithms, and 
CMS-2HS language analysis is provided . Section V describes 
the first pass of the CMS-2ES compiler and offers recommen- 
dations for intermediate language and second. pass designs. 
Finally, the thesis conclusions are presented in Section VI. 

A. BACKGROUND 

Compiler Monitor System II (CMS-2) is an integrated 
group of computer program modules which comprise a Monitor 
System (MS-2) and a Compiler system (CMS-2) . The Monitor 
System supervises the compiling, library, and loading 
processes. The Compiler System translates CMS-2 language 
source code into object code for any one of five target com- 
puter systems. The following sections provide a historical 
background of the CMS-2 System and language. 

1. History of Compiler Monitor system II (CMS-2) 

The primary reason for developing the CMS-2 System 
resulted in large part from the decision to develop the Navy 
AN/UYK-7 third generation computer. The two Systems devel- 
oped were designed to be hosted in the UNIVAC CP-642B and 
AN/UYK-7 computers. The CP— 642B version generates object 
code for those two computers, as well as the Litton L-304, 
UNI V AC- 1 830 A , and U NIV AC- 1 2 18/1 2 1 9 computers. 

The CMS-2 S-ystem was built by Computer sciences Corp 
oration under contract to Fleet Combat Direction Systems 
Support Activity, Pacific (FCDSSAPAC) , in San Diego, Cali- 
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fornia. FCDSSAPAC provides System production, maintenance, 
and support services for all Navy and contractor activities 
involved in Command and Control Systems software development. 

2. History of CMS-2 language 

The CMS-2 language extends the capabilities of 
Compiler System-1 language (CS-1) and includes seme of the 
features of FOHTHAN, JOVIAL, and P-L/I . CMS-2 language 
capabilities were implemented specifically for Command 
and Control Communications problems which include internal 
and external message processing, table update and search, 
coordinate conversion, transcendental and hyperbolic func- 
tions and data display processing requirements. The language 
was initially implemented in 1969 and is now the Navy standard 
for all Command and Control systems applications. 

B. GOALS AND OBJECTIVES 

This section describes the thesis objectives and the 
project goals to implement and validate those objectives. 

1. Thesis Objectives 

The CMS-2 System and Language were specifically 
developed to provide a high level language processor system 
for building and maintaining deliverable computer programs 
from a production library. In its current form, the CMS-2 
System and language are in large part capable of accomplish- 
ing that requirement, but not without some inefficiencies 
and limitations in the System, as well as redundancies, 
ambiguities,, and limitations in the language. It is with 
these deficiencies in mind that the following objectives 
are defined. 

a. Determine what ambiguities, redundancies, and 
limitations exist in the CMS-2 program, data, and control 
structures, and define the necessary structure changes to 
correct them. 

b. Develop an unambiguous Backus-Naur Form (BNF) 
description of the proposed language, as an SLR(1) Context 
Free grammar, that is appropriate to automated compiler 
construction . 
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c. Determine if an automatic SLB(1) grammar 
analysis and parsing table generation system can be applied 
to the proposed language and system to simplify compiler 
design and maintenance. 

d. Determine what fundamental changes need to be 
made to the language and system to support the structured 
programming concept in a modular library environment. 

e. Determine if the CMS-2 language can be seg- 
mented to allow design and implementation of a modular 
compiler, thus allowing ease of future language extension 
and maintenance. 

2. Project Goals 

a. Produce an operational first pass lexical 
scanner and syntax analyzer that will implement and vali- 
date the above thesis objectives. 

b. Design an intermediate language (IL) that can be 
used by the second pass of the compiler to generate optimized 
object code for either a single or multiple address target 
computer. 
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CMS-2 SYSTEM AND LANGUAGE DESIGN 



Ihis section describes the CMS-2 System including the 
Monitor, Compiler, Librarian, Loader, Assembler, Flowcharter 
and Tape Utility. Additionally, program, header, data and 
control structures of the CMS-2 language are described. 

A. CMS-2 SYSTEM DESIGN 

The CMS-2 System consists of the MS-2 Monitor and sub- 
ordinate systems whose operations are controlled by the 
monitor program. This section describes the CMS-2 System 
as presented by .references 1, 2, and 3. The CMS-2 Systems 
include the following. 

1. MS-2 Monitor System 

The MS-2 Monitor System is a batch-processing oper- 
ating system designed to control execution of its subsid- 
iary components and user jobs being run on the computer. 

The monitor provides the environmental interfaces necessary 
for all programs running under its control. These inter- 
faces include a job control card processor, an interrupt 
processor, an input/output system, an operator ccmmunica tion 
module, a debug module with dump, patch, and snap capabilities, 
and a job accounting package. In addition, the monitor 
maintains a library of the system component programs and 
data base definitions that can be called by the user 
upon reguest to be added to his compile or execution package. 
The CMS-2 job flow is shown in Figure 1. 

2. CMS-2 Compiler System 

The CP-642B version Compiler is a two-phase langauge 
processor that analyzes a dual syntax source program (CS-1 
and CMS-2 languages) and generates object code for any one 
of the computers mentioned above. The phases cf compiler 
translation are described below and illustrated in Figure 2. 
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FIGURE 1 - CMS-2 JOB FLOW 
(Figure 1 was extracted from Ref. 1 ) 
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FIGURE 2 - CMS-2 LANGUAGE TRANSLATION PROCESSES 
(Figure 2 was extracted from Ref. 1) 



a. First Phase (Syntax Analyzer) 

The first phase of the compiler processes the 
user's source program which consists of CMS-2 and CS-1 
language statements and properly bracketed machine code 
instructions. The source statements are checked for 
validity, and an intermediate form of the program (IL) and 
symbol table are generated. 

b. Second Phase (Code Generator) 

The second phase processes the IL and symbol 
table tc produce the final output listings and object code 
for the target computer. Each code generator produces the 
appropriate object code for each target computer in either 
absolute or relocatable format. The code may reference in- 
put, output, debug, and built-in functional routines. These 
rou-tines are then linked to the object code of the calling 
program either by the compiler in an absolute mode or by 
the linking-loader in a relocatable mode. The built-in 
functional routines are either added in-line to the object 
code where referenced or are added as procedures to be linked 
together at run-time. 

3. CMS -2 Librarian 

The librarian is a file management system 
that provides storage, retrieval, and correction functions 
for a programmer's source programs and object code, 
a. Library Maintenance 

The library maintenance or executive control 
routine (LIBEXEC) is used to create, modify, or reproduce 
libraries for CMS-2 programmers. They contain source pro- 
grams, object modules, and predefined data designs. A library 
translator routine, under control of LIEEXEC, is used to 
convert existing CS-1 programs or libraries into a CMS-2 
library format. 

t. Library Search 

The library search routine is responsible for 
retrieving data from a previously created CMS-2 library. 
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Object Code Loaders 

The CMS-2 System includes two loader programs for 
linking and loading object code produced by the CMS-2 
compiler. The absolute leader loads all instructions and 
data at the addresses assigned during the compilation. 
Similarly, the relocatable loader processes relocatable 
object code directly from the compiler cr from a CMS-2 
library by assigning all program memory addresses and 
linking program segments tc produce an executable object 
program. The loader, in the case of the AN/UYK-7, combines 
independently compiled program segments under a common 
base register or registers. 

5. Tape Utility 

The CMS-2 system provides a set of utility routines 
to assist the .programmer with the manipulation of data 
recorded on magnetic tape. The routines provide the capa- 
bility to construct, duplicate, compare, list, and 
reformat data files on tape. 

6 . CMS-2 Flowcharter 

The flowcharter is designed to process unigue 
flowcharter sta.tements in a user's CMS-2 source program 
and output a flowchart of the program logic to the 
high-speed printer'. 

7. Assembler 

The assembler, in the case of the AN/UYK-7 version, 
accepts mnemonic oriented instructions and provides a macro 
instruction capability. 

E. CMS-2 LANGUAGE DESIGN 

This section presents an overview of the major 
features of CMS-2, and its program, header, data, and 
control structures, as presented by references 1, 2, and 3. 

1. Majo r Features 

The major features of CMS-2 are: modular procedure- 
oriented program structures; high-level control structures; 
reentrant procedures; dynamically allocated data designs; 
separate definition of data and control structures; state- 
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ment oriented card input processing; Fixed-point, Floating- 
point, Boolean, Hollerith, and Status data types; and Char- 
acter and Bitstring manipulation. 

2. Program Structure 

A CMS-2 Program is composed of ordered sets of state- 
ments organized into header, data, and control structures. 
These structures can be grouped to form System Elements called 
System Data Designs, System Procedures, or System Reentrant 
Procedures. Any System Element or Elements may be separately 
compiled as a System, which may be a complete- or partial 
execution package, as shown in Table I. 

The System Procedures and Reentrant Procedures are 
composed of ordered sets of Local and Auto Data Designs and 
Function and Procedure subroutines as shown in Table II. 

The local procedure within a System Procedure which shares 
its name is known as the Prime Procedure and is the entry 
point for System Procedure calls. A System Reentrant Pro- 
cedure may only contain Auto Data Designs and its local 
procedures and functions are composed of reentrant state- 
ments. Each procedure that calls a Reentrant Procedure 
is dynamically assigned a private copy of the Auto Data 
Design during execution. 

The headers are groups of statements that precede 
System Elements and specify control of compiler and loader 
processing of source and object code. 

a. Program Statement Design 

Program statements are composed of various sets 
of symbols and delimiters which are further composed of 
elements from the revised U. S. ASCII Standard Character 
Set. The symbols are catagorized as operators, control 
identifiers, data identifiers, and constants. 

Operators are described by special characters 
and reserved words, and are used for unary, binary, and 
functional operations. They may operate on defined data 
fields and are used for control of program execution. Con- 
trol identifiers are described by user declared words which 
define program locations where program execution flew may 
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SYSTEM B 


SYSTEM C 


HEADER 

DECLARATION 


SYSTEM 
DATA DESIGN 


SYSTEM 
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SYSTEM 
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SYSTEM 
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SYSTEM 
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SYSTEM 
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SYSTEM 

PROCEDURE 


SYSTEM 
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SYSTEM 
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SYSTEM 
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SYSTEM 
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SYSTEM 

PROCEDURE 


SYSTEM 
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TABLE 1 - SAMPLE PROGRAM SYSTEMS 
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s I S T E M 0 CE P UB 2 _ A 


SYSTEM BEENTBANT PBOC ED ORE B 


LOCAL DAI A DESIGN 


AUTO DATA DESIGN 


PROCEDURE A 


PBOCEDURE B 


PROCEDURE E 


AUTO DATA DESIGN 


LOCAL DAI A DESIGN 


FUNCTION A 


PROCEDURE C 


PEOCEDUEE C 


AUTO DATA DESIGN 


AUTO DATA DESIGN 


PROCEDURE D 


FUNCTION D 


LOCAL DATA DESIGN 


PEOCEDUEE E 


FUNCTION E 


PROCEDURE F 


PEOCEDUEE F 





TABLE 


II - SAMPLE SYSTEM PROCEDURES 
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be transferred. These locations may be specified by state- 
ment labels or procedure and function names. 

Data identifiers define simple variables, 
statement switches, tables, and arrays. Constants are 
ordered sets of numeric characters with known, fixed values. 
They may be reals (decimal or octal), Hollerith strings. 

Status values, or Boolean. Another type of constant, called 
called a Tag, is represented by sets of alphanumeric char- 
acters and can be used throughout a compile- time System in 
place of literal constants. 

b. Scope of Identifiers 

The scope of an identifier is the range of pro- 
gram structure within which an identifier can be referenced 
or has mean 5 ng. 

(1) Forward and Backward References. Hithin a 
Data Design, a data structure may be referenced either 

before (forward) or after (backward) it has been defined. 

/ 

Outside a Data Design, a data structure may only be referenced 
after it has been defined. 

A reference to statement labels within System 
Procedures; calls to local procedures and functions within 
their System Procedure; and calls to Prime Procedures not 
having formal parameters or abnormal exits may be either 
forward or backward. 

(2) Local and Global Definitions. local 
definitions are those identifiers which can be referenced 
only frcm within the System Element in which they are 
defined. Global definitions apply to those identifiers 
that can be referenced both from inside and outside the 
System Element in which they are defined. 

Local Data Designs are local cnly to the 
System Procedure in which they are declared. All System 
Data Designs and Prime Procedures are glcbal to their 
compile- time System. 

(3) External References and External Definitions. 
An external definition (EXTDEF) is a prefix that allows an 
identifier to be referenced outside of the System Element 
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where it is defined. All System Data Designs and Prime 
Procedures are automatically defined as external. An external 
reference (EXTREfj is a prefix that allows an identifier to 
be referenced in a System Element that is local tc another 
System Element. These external references must ofcey the 
local/global ranges of the identifiers they reference. 

The following cases apply. 

(a) The identifer is a data structure in 
a Local or System Data Design that follows the reference. 

(b) The identifier is a local procedure 
name, statement label, or data structure in a Lccal Data 
Design, and is defined in another System Procedure. 

(c) The identifier is defined in another 
compile-time System that will be linked with the current 
System at load time. This case is identified by the prefix 
TRAHSREE in the AN/UYK-7 System. 

(-4) Declarative Delimiters. Table III shows 
the delimiters which declare the beginning and ending of the 
various program structures. 

3. Header Structure 

The header structure contains compiler control 
declaratives which specify action as to base register 
allocation modes, library retrieval and update options, 
program debug features, object code addressing, output 
format and listing options, system index-register inter- 
pretation, and the computer mode of operation within 
which the designated program is expected to run. These 
statements may be located in major headers, if the control 
applies to the entire compile-time System, and in minor 
headers, if the control applies only to a System Element. 

4. Data Structure 

The data structure consists of precise definitions 
of temporary and permanent data storage areas, input areas, 
output areas, and special data units such as program 
switches. These structures can be grouped together to form 
System, Local, and Auto Data Designs. A data declaration 
defines the type, precision, identifier, and optionally, the 
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BEGIN DELIMITER 
SYSTEM 


END DELIMITER 
END-SYSTEM 


DELIMITED ELEMENT 
Compile- time System 


SYS-DD 


END-SYS-DD 


System Data Design 


SYS-PROC 


END-SYS-PROC 


System Procedure 


LOC-DD 


END-LOC-DD 


Local Data Design 


PROCEDURE 


END-PROC 


Local Procedure 


FUNCTION 


END-FUNCTION 


Local Function 


SYS-PROC-REN 


END-SYS-PROC 


Reentrant System Procedure 


AUTO-DD 


END-AUTO-DD 


Auto Data Design 


HEAD 


END-HEAD 


Header Declaration 



TABLE III - CMS- 2 PROGRAM STRUCTURE EELIMITE ES 
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scaling and preset value of a data element in a Data Design. 
The five major data structures are switches, variables. 
Tables, Arrays and Files. An Overlay declaration is used 
to define an identifier which is packed with the values of a 
list of variables or Fields in the order in which they are 
listed from lef t-to-right. 

a. Switches and Variables 

Switches provide for transfer of program control 
to statements or procedures depending upon the value of a 
programmer supplied index. A variable is a singular piece 
of data of length one bit, multiple bits, or computer words. 
If the length is not specified then a default parameter is 
assumed for the specified target computer. Variables may 
also be preset to a compatible value. 

b. Tables 

Tables hold ordered sets of identically struc- 
tured information. The common unit of data structure in a 
Table is the Item. 

(1) Item. An Item consists of k computer 
words, where k is selected by the programmer or compiler. 

A Table may contain n Items, where n is a declared 
parameter. Tables may be declared horizontally such that 
all words 0 of all Items are stored together sequentially 
followed by all words 1 of all Items up to word n. The 
words of a vertically defined Table are stored such that all 
words, of every Item are stored together sequentially. Item 
assignments are shown in Figure 3. 

(2) Fields. Items may be subdivided into 
Fields, which are the smallest subdivision of a Table. A 
Field may be a partial wcrd, full word, or multiword sub- 
division. Fields have the same data types as variables and 
may be preset and altered dynamically as variables. In 
addition. Fields may overlap each other, but must be type 
compatible. Field assignments are shown in Figure 4. 

(3) Subtables, L.ike-tables, and Item-areas. 

The Table declaration structure also allows the programmer 
to define a subset of adjacent Items within a Table as a 
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Column 0 Column 1 Column 2 




FIGURE 3 - TABLE ITEM AND ARRAY ASSIGNMENTS 
(Figure 3 was extracted from Ref. 1) 
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Word 0 



Word 1 



Word 2 



Word k-1 




Word 0 Word 1 Word 2 Word k-1 




Field X v. 



~ Y — 
Field Z 
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FIGURE 4 - TABLE FIELD ASSIGNMENTS 
(Figure 4 was extracted from Ref. 1) 
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Suitable. The programmer may also allocate a working stor- 
age area outside the table, called an Item-area, which 
automatically takes on the .same Field format as the Table 
Item. Additionally, the programmer may declare Tables 
having the identical Field format as the parent Table, 
called like-Tables, but having a different number of Items. 

The Table structures are shown in Figure 5. 

c. Arrays 

An array is a multi-dimensicnal extension of the 
Table concept for storing ordered sets of identically struc- 
tured information previously defined as Items. Th-e array 
structures are shown in Figure 3. 

d. Files 

A File declaration defines a data structure environ- 
ment in which one or more physical files are to be processed. 

The declaration assigns a File name for dynamic statement 
referencing, identifies the symbolic name assigned to the 
actual hardware device, and declares that all data to be pro- 
cessed on the named hardware device is physically organized as 
described in the declarative statement. 

5. Control Structure 

The CMS-2 control structure or dynamic statement 
specifies processing operations and results in executable code. 
Each statement consists of an operator followed by a list 
of operands and additional operators. An operand may be a 
single name, a constant, a data unit reference, or an 
expression. The data units may be variables, subscripted 
variables. Tables, or Files. 

a. Statement and Functional Operators 

The major statement operators are described in 
Table IV. The functional operators in CMS^2 are used to 
facilitate references to and operations on data structures. 

These operators are described in Table V. 

b. Expressions 

Real expressions may include standard 
addition, subtraction, multiplication, and division 
operators, as well as exponentiation, mixed-mode values. 
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FIGURE 5 - TABLE STRUCTURES 
(Figure 3 was extracted from Ref. 1) 
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0PEEA30E 

SET 

SWAP 

GOTO 

IP 

VABY 

PINE 

PACK 

SHIP! 

RESUME 

EPTUEN 



EXEC 

STOP 



MEANING 

Performs ejaculations or assigns a value to one or 
more data units. The assignemnt may be Beal, 
Hollerith, Status, Boolean or Multi-word. 

Exchanges the contents of two data units. 

Alters program flow directly or via a statement 
switch. 

Expresses a Boolean test situation for conditional 
execution pf one more statements. 

Establishes a program loop to repeat execution of 
one or more statements by varying one or mere 
indexes by a specified increment until a test 
value is satisfied. 

Searches a table for data that satisfies specified 
conditions, and assigns to subscript variables the 
index values pointing to its location. 

Transfers bits strings into a data area. 

Shifts a string of bits right or left a specified 
amount. 

Specifies a transfer of execution control to the 
increment and test steps within a VABY block, 

A transfer of execution control from a procedure 
call that specifies normal return to a label if a 
special condition is met, or a return of the value 
or an expression to the point of call. 

A call to an executive program which passes one or 
two parameters indicating what action to be taken 
and on what data unit or address. 

Temporarily suspends program execution until 
manually restarted cn the computer. 



TABLE IV - CONTBOL STATEMENT OPEEATOBS 
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OPZBJTOE 

BIT 

CHAB 

COBAD 

ABS 

BOS, EIL 

LENGTH 

CNT 

CAT 



OIBBATOB 

DISPLAY 

SNAE 

BANGE 

TBACE 

PTBACE 



To reference a string of bits in a data unit. 

To reference a string cf characters in a hollerith 
data unit. 

To reference a data unit's relative core address. 

To obtain absolute value of an arithmetic primary. 

To move a magnetic tape record, f-ile a specified 
number of positions forward or backwards. 

To obtain a record's length for the last input- 
output operation. 

To obtain count of bits set to one in a data unit. 
To concatenate character strings. 



TABLE V - FUNCTIONAL OPEEATCBS 
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Causes the contents of machine registers and 
specified data units to be formatted and printed 
on the system output device. 

Contents of a data unit are printed and stored. 
Subsequent executions cause a printout only when 
the data contents are modified. 

High and low values are specified for a data unit, 
ana each time the data unit is modified in the 
program, a - message is printed if the value falls 
outside the range. 

A printout is generated for the execution cf each 
CMS-2 statement between TBACE and END-TBACE. 

Each CMS-2 procedure call encountered in the 
program being executed is identified by calling 
and called procedure names. 



TABLE VIII - PBOGBAM EEEUG STATEMENT OPEBATOBS 
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and in-line redefinition of the scaling of fixed-point 
numbers. 

A relational expression perforins a comparison 
between two similar operands as specified by a relational 
operator. There are four types of comparisons: 

(1) Beal , involving the comparison cf signed 
Beal values (fixed, floating, or mixed) , 

(2) H ollerith , involving a lef t-to-right, 
character-by- character comparison , 

(3) Boolean , involving the comparison of 
single bits, and 

(4) Status , involving the comparison of status 

values. 



A CHS-2 expression may include algebraic, 
relational, and Boolean operators. The heirarchy of 
expressional evaluation is shown in Table VI. 

c. Input-output Statements 

The CKS-2 Input-output statements permit the 
program to communicate with the various hardware devices 
while running in a monitor environment. The operators are 
described in Table VII. 

d. Program Debug Statements 

The CMS-2 Debug statements are placed in the source 
language to cause run-time debug routines to be available for 
program execution analysis. The debug statement operators are 
described in Table VIII. 
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PR IORI TY 

1 

2 

3 

4 

5 

6 

7 

8 



OPERATOR DEFIN ITIO N 

**,- EXPONENTIATION, UNARY MINUS 



*,/ MULTIPLICATION, DIVISION 

+,- ADDITION, SUBTRACTION 



EQ, NOT 
GT, IT EQ 
GTEQ , LT 



EQUAL. NOT EQUAL 

GREATER THAN, LESS THAN OR EQUAL 
GREATER THAN OR EQUAL, LESS THAN 



COMP 



LOGICAL COMPLEMENT 



AND 



LOGICAL MULTIPLICATION 



OR 



LOGICAL SUM 



XOR 



LOGICAL DIFFERENCE 



TABLE VI - C MS-2 MIXED EXPRESSION EVALUATION 
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OEEJATCjj 

FILE 

OPEN 

CLOSE 

INPUT 

OUTPUT 

FOBMAT 

ENCODE 

DECODE 

ENDEILE 

CHECKID 

SEAECH 



ME ANIN G 

Defines the environment and pertinent information 
concerning an input or output operation, and 
reserves a duffer area for record transmission. 

Prepares an external device for input, output, or 
scratch (both) operations. 

Deactivates a specified file and its external 
device, sends last unfinished buffer to output. 

Directs an input operation from an external device 
to a FILE dufrer area. 

Directs an output operation from a FILE buffer 
area to an external device. 

Defines the desired conversion between 
data blocks and internal data definitions. 

Directs transformation of data elements into a 
common arrea, with conversion in accordance with a 
specified FORMAT. 

Directs unpacking of a common area and transmittal 
to data units as specified by a FOBMAT 
declaration. 

Places and end-of-file mark on appropriate 
recording mediums. 

Directs checking an id header or label on a FILE 
if the device is at load point. 

Directs a search operation for specific data 
within a FILE. 



1ABIE VII - INPUT-OUTPUT STATEMENT OPEBATOES 
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III. REVISED COMPILER AND LANGUAGE DESIGN 



This section describes the CHS-2RS Compiler System and 
Language design capabilities which differ from the CMS-2 
System. A more complete description of the CMS-2ES language 
is provided in Appendix B. 

A. PROGRAM STRUCTURE 

In a large system of programming modules, the problems of 
isolation of logic design error and verification cf program 
correctness tend to increase exponentially as the number of 
combinations of program procedure call parameters and trans- 
fers of execution control increase. To counter this problem, 
a well-defined method of software engineering and suitable 
language-compiler system are needed. 

1 . Structured Programming 

The term "Structured Programming" is defined in ref- 
erences 4 and 5 as a top-down method of program building with 
the top program modules being at the highest level of the 
program logic design and referencing the next level modules 
as procedure calls in its control structures. 'This process 
continues until the modules at the lowest level are refer- 
encing basic machine and operating system constructs. 

In reference 6, Bohm and others have shown that the 
control logic of any programming problem can be represented 
by the three basic control structures: simple statement 
sequences, IF THEN ELSE statements, and DO WHILE statements. 
The CASE structure of ALGOL W may also be required to prevent 
multiple nesting of IF THEN ELSE statements. 

To ensure program reliability under varying loading 
conditions, its logical correctness must be easily verifiable. 
The first requirement must therefore be to restrict each 
program segment to exactly one entry and exit point. Another 
requirement is that library substitution facilities be 
provided at compile and load-time so that the segemnts can 
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be stored and retrieved by symbolic names. Finally, scope 
of identifiers and GOTO statements must be controlled in their 
application to prevent unlimited access to data and control 
structures. 

2. Program Structure Revisions 

The program structure of CMS-2RS retains the modular 
structure of CMS-2, but includes several revisions to its 
conventions for procedure exit, and identifier referencing 
to facilitate implementation of the top-down programming 
concept. 

a. Procedure Exit 

The convention of allowing unrestricted abnormal 
exits or returns to a calling procedure has been modified. 

A return which precedes the point of call may result in 
an infinite loop condition, given the abnormal exit condi- 
tion still exists. Abnormal exits have therefore been 
restricted to return points which follow the point of call 
and lie within the calling procedure. 

b. External Referencing and External Definition 

The concept of externally defining an identifier 

in one element to be externally referenced by another ele- 
ment destroys the integrity of the System Procedure and 
its local Data Designs. A program logic error related to the 
above concept may be very difficult and costly tc locate. 
Therefore, external references are only allowed between 
different compile-time Systems and then only by specifying 
the identifiers of System Data Designs, System Procedures 
or Reentrant Procedures. The prefix EXTREF now applies 
to System Data Designs in symbol table format and to System 
Procedures in source code format, and at load- time to System 
Procedures in object code format. The Elements thus speci- 
fied are then added as complete sections to the compile or 
load-time System as appropriate. 

If it is necessary to reference another System 
Procedure's Local Data Design structures at compile-time, 
then the data structure must be removed and put into an 
appropriate System Data Design so that it is global to 
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both procedures. The external definition, EXTDEF, and 
transient reference, TRANSREF, prefixes have been eliminated 
to simplify language and compiler design. 

c. Forward and Backward References 

The forward reference of identifiers within 
a data design is not necessary and has therefore keen 
deleted. The Tag declaration, which is used to name a 
constant throughout compile-time , is sufficient to allow 
presetting of all data structures within a data design, 
a. Local and Global Definitions 

The local and global definitions of identifiers 
allow program structure to develop in a logical fashion. The 
System Procedures at the lowest physical program level have 
access to their Local Data Designs and all other previously 
declared System Data Designs. The System Procedures at the 
highest level in the program, however, have access only tc 
their Local Data Designs and all System Data Designs declared 
above. This concept of scope of identifiers provides for 
implementation of the structured programming concept by 
allowing the top procedure to be written at the highest logic 
level and the bottom at the lowest level as shown in Figure 6. 
What is required though, is a means of prescribing what levels 
of control structures (how close to the machine) should be 
allowed within each System Procedure in an executable System. 

3. Multi-level Programming 

A Multi-level programming system is one in which all 
the language constructs are expressed on a high lexical 
level. They are, however, capable of implementing systems 
as well as applications programs. If these constructs are 
to he controlled in their use in all types of programming, a 
matrix of levels of programming verses language constructs is 
required in the syntax analyzer to allow only the appropriate 
code to be generated for each programming level. The Syntax 
analyzer can thereby control which grammar reductions are 
allowed at each programming level in a System. A further 
requirement exists to define in the Monitor system a matrix 
specifying which levels are accessible by each user, module 
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FIGURE 6 - SCOPE OF DATA DESIGNS 



and corresponding project. The resulting systeir allows a 
programmer to specify that other levels cf program modules, 
for which he is not authorized to generate code, are to be 
added at the appropriate level to his compile-time or load- 
time System. The concept of System executive cr supervisor 
state and task state are thereby expanded to levels of states. 
For example, the use of System Registers as variables in 
expressions and assignment statements is limited tc those 
levels which reguire register access such as I/C routines. 

Thus the Monitor System has complete control over which user 
generates what level of code for which System and provides 
a means of security over use of program control constructs. 
This concept is illustrated in Figure 7. 

4. Declarative Delimiters 

Table IX shows the revised delimiters which declare 
the beginning and ending cf program* structures. 



B. HEADER STRUCTURE 

The minor header declaration has been eliminated and 
major headers now only apply to the entire compile or load- 
time System. The header declarations were not implemented 
in the current CMS-2RS compiler, but could easily be included 
in the same manner as the data declarations. The following 
CMS-2 statements have not been implemented in the header 
structure in order to simplify the CMS-2RS language and 
compiler. 

1. EQUALS and NITEBS Statement 

The Eguals statement is used to assign numeric values 
to variables and to specify their allocation relative tc 
ether variables. 

a. Numeric Assignment 

The assignment of numeric values to symbols by 
simple parenthesis-free expressions requires the generation 
cf compile- ti me code to preset symbols to the desired values. 
This practice is not necessary since symbols can be initial- 
ized in the data design by presets or in the procedure itself 
by dynamic code. Allowing this method of pre-initialization 
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FIGURE-7 -“MULTI-LEVEL PROGRAMMING 



BEGIN DELIMITER 


END DELIMITER 
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SYSTEM 


END 


SYS^DD 


END_DD 






SYS EEOC 


END 




SYS PBOC B 


END 


PROCEDURE 

FUNCTION 


LOC_DB 


END_DD 






A U1C_DD 


E ND_DD 






HEAD 


END_HEAD 



DELI MITE D E LEME NT 
Compile- time System 

System Data Design 

System Procedure 

System Reentrant Procedure 

Local Procedure 

Local Function 

Local Data Design 

Auto Data Design 

Header Declaration 



TABLE IX 



CMS-2ES PECGEAH STBUCTUBE DELIMIT EES 



introduces a possible source cf error that may be difficult 
to detect and violates the structured programming concept of 
program segment integrity. • Further, initializing symbols at 
compile-time requires that header declaration information 
always be a part of the System Procedure or Data Design in 
order to maintain library configuration control. 

b. Relative Allocation 

The relative allocation feature allous a data unit 
to be assigned the same relative location as another data 
unit. This relative allocation capability can also be 
accomplished at run-time by the CORAD functional operator, 
thus preserving library segment independence. 

The NITEHS declaration specifies that an identifier 
is tc be assigned a value fcr compile-time purposes, but may 
also be assigned another value at load-time. It is used only 
for establishing the number of items in a vertica-1 Table whose 
size is to be determined at load-time. 

The EQUALS and NITEHS statements were net implemented 
since mest of their capability could be more easily provided 
by the lag declaration. 

2. CSWITCH Statement 

The CSWITCH (compile switch) statement prevides se- 
lective compilation of blocks of statements within a System 
Element. The CSWITCH parameter identifies a greup of state- 
ments within a CSWITCH block. In the header, the list of 
parameters following the CSWITCH identifier specifies to the 
compiler those CSWITCH blocks which are to be compiled in the 
System Element or Elements that follow. The parameter 
DELETE specifies that all CSWITCH code blocks in the follow- 
ing Element or Elements, which are not being compiled, are 
to be deleted from the source output and listings of the 
compiler. 

The CSWITCH feature was not implemented since the 
ability to selectively delete code from compilaticc complicates 
the problem of program segment configuration control and in 
some cases duplicates the library CORRECT feature. 
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3„ DEP And EXECUTIVE Statements 



The DEP statement informs the compiler of a list of 
System Elements which are dependent or subordinate to the 
System Element following the header declaration in a corn-pile 
or load-time System. 

The EXECUTIVE statement function informs the 
compiler th<}.t the following System Element or Elements are 
allowed Lo generate control memory references tc index reg- 
isters and accumulators using the symbolic identifier speci- 
fied in the system Index (register , name) declaration. 

These statements will not be necessary if a multi- 
level compiling concept is implemented. Instead what is re- 
quired is a .declaration which informs the compiler cf the 
program level and project type of the following Element or 
Elements. 

SPILL Statement 

The SEILL statement causes every identifier within 
a System Procedure to be declared as an External Definition. 
This statement has not been implemented since its capa- 
bility can be achieved by relativley simple program changes. 

5. Summary 

In summary, the header declarations should be used 
to inform the compiler of the type of Element allocation 
(static or relocatable) and the type of output required for 
the compile and load-time Systems. They should net be used 
tc modify the Element's internal data allocation and control 
structure representation. Header statements are also used to 
specify library retrieval-correction, debug, and data design 
pooling changes to the compile or load-time Systems' default 
parameters. 
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C. DATA STRUCTURE 

The data structure of a program must allow a compact 
definition of a data unit's attributes and provide for pre- 
setting it to a constant or Tag vaj.ue. The following changes 
have been made to simplify CMS-2RS. 

1. Data Types 

The data types available in CMS-2 do not explicitly 
include a type that allows operations on the mathematical set 
of binary digits. The data type Boolean is used primarily 
for the logical operations of conjunction, disjunction, and 
negation. Therefore, it has been limited to a fixed length 
set which is defined as either True or False and no longer 
can be used -for bitstring manipulation. 

To provide a Bitstring capability, a new data type 
has teen defined, called Bits, which allows the logical 
operations of "and", "or", complementation, as well as SHIFT 
and substring functional operations. These operations pro- 
vide the capability for programming at the bit level in 
addition to programming at other data type levels. 

The data type Integer, as well as Fixed-point and 
Floating-point, are now treated as Reals and may only be used 
in Real expressions. 

2. Data Elements 

The data element constructs in CMS-2R3 provide a 
means of organizing data into the most commonly used struc- 
tures. with the exception of lists. 

a. Switches 

The Index switch declaration for statements is 
composed of an index variable followed by a list of n state- 
ment labels to which control may transfered depending upon 
the value of the index (0 to n-1) . An alternative form of 
the declaration contains two index variables and a column of 
labels for each. The item switch declaration is composed of 
a variable followed by a list of constant statement-label 
pairs. 
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The Procedure switch declaration is composed of 
procedure names to which calls may be made, and a list of 
formal input and output parameters for each procedure. 

The statement switch and procedure switch 
capabilities have been incorporated into the CASE state- 
ment . 

b. DATA and MODE Declarations 

The DATA declaration has been incorporated 
into the data unit preset capability in the data designs. 

To facilitate this, a TAG declaration has been added which 
allows the programmer to assign a constant value to an 
identifier which can be used throughout a compile-time 
System-.’ 

The MODE declaration, which speciifes that sub- 
sequent data declarations have the same data type, has been 
superceded by the requirement that type specifications appear 
in every data declaration. 

c. Variables 

The precision specification for variables is no 
longer optional. It must now be specified and each code 
generator will translate it into the appropriate length for 
its target machine. 

The V(x,y) specification requires the compiler 
to preset-scale a variable starting at the y bit position 
by defining that position with a magnitude of x and each sub- 
sequent position as one half the preceding positions' value. 
This capability has been provided by the Bits data type 
expressions. 

d. Tables 

The option to store one dimensional Tables in 
either vertical or horizontal alignment has not been imple- 
mented in favor of aligning all Items vertically (all words 
stored sequentially). An optimum search capability is now 
provided by the compiler that allows Table searching to be 
independent of Item word storage alignment. 
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The optional counter (major Index) , which keeps 
track of the actual number of items within the table, has 
not been implemented. This feature was programmer maintained 
and could just as easily be accomplished by a normally de- 
clared Integer variable. 

Like-tables have not been implemented since the 
same capability can be achieved by declaring either another 
Table with a different number of items cr a Sub-table with 
the desired dimensions. 

The Sub-table concept has been extended to in- 
clude arrays or multi-dimensional Tables, as well as one 
dimensional Tables. 

The INDIRECT Table implementation has been 
simplified by rot reguiring the COSAD functional operator 
in making procedure calls by address. The fact that the 
formal input parameter is an INDIRECT Table name cr that the 
corresponding formal and actual input parameters afe of 
the same name is sufficient to achieve a procedure call in 
which no values are p-asse-d. Further, the INDIRECT option 
may not be used as an actual parameter. 

The Field declaration has been changed to allow 
only type "b" word packing, that is the compiler assembles 
the Fields within Table Items sequentially in the order in 
are declared. 

e. Overlay 

The Overlay declaration has not been implemented 
since dynamic packing of a variable with a list cf variables 
can be accomplished by the PACKIN instruction. The static 
packing of variables is of questionable value in a language 
with a message processing capability and requires an un- 
necessarily complicated compiler data declaration capability. 
If a list processing capability is required, it should be 
added as a complete feature of the language and compiler 
including list declarations and logical set operators such 
as union, intersection, add-to, and delete-from. 
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D. CONTROL STRUCTURE 

The CMS-2ES control structure provides the capability to 
specify parallel as well as sequential processes. Further, 
a structure has been provided which groups statements into 
blocks for sequential processing. This section describes 
the control statements which have teen added to the CMS-2RS 
language to implement the above capabilities. Additional 
changes have been made to provide the capability to implement 
the structured and multi-level programming concepts. 

1. BEGIN and END Declaratiyes 

The BEGIN and END block structure declaratives, which 
are described by Bauer in reference 7, have been imple- 
mented to allow grouping of statements for sequential exe- 
cution. There is no imposed limit on the number cf levels 
of block structure that can be nested within a System Pro- 
cedure since data designs are declared separately from 
control structures. 

2. VARY Statement 

The VARY Statement has been changed to allow an 
optional increment value (other than 1) for each index 
variable on the same icop level. The loop execution will 
cease only when all indexes have reached their test value. 

3. CASE Statement 

The CASE statement, which is described by Bauer in 
reference 7, has been added to the language to provide the 
capability for selective statement execution. A case index 
value is compared at run-time to a list of case labels to 
determine which statement will be executed. Each statement 
in a case block may have more than one label and labels may 
be either Integer or Status constants. An ELSE case capa- 
bility has also been provided in the event the index value 
falls outside the range of the case label list. An alternate 
version of the CASE statement has been implemented which 
does not require statement labels. An implied labeling seq- 
uence of 0 to n-1 is used to select one of n statements in 
a case block. 



h. While Statement 



The While statement has been added to provide for 
loop controlled execution of a statement or block of state- 
ments based upon the continued True condition cf a Boolean 
expression. 

5. IF Statement 

The IF statement has been modified to allow nesting 
of IF THEN ELSE statements. Only simple (not CASE, VARY, 
WHILE, or IF) statements are allowed within the nesting 
structure. All types of statements, however, may be used 
for the last statement after the last ELSE. 

The "IF DATA FOUND THEN" and "IF DATA NCTTCUND 
THEN" statements have not been implemented since the in- 
dicies cf a Table or File in a SEARCH statement will be set 
to minus one if the search is unsuccessful, otherwise they 
will be set to the location of the desired data unit. 

The "IF (subscripted data structure) VALID/IN VALID 
THEN" statements have not been implemented since the Eoolean 
functional op>erator SUBSCRIPT, with parameter subscripted 
data structure, provides a True of False indication of sub- 
script range validity, and can be implemented by using it 
within an "IF THEN ELSE" statement. 

The "IF (data unit) ODDP/EVENP THEN" statements 
have not been implemented since the COUNT (data unit) func- 
tional operator provides the same capability when checked 
for even or odd value in an IF s-tatement. 

6. Label Declaratives 

Labels are allowed on every statement type except 
statements within VARY, CASE, RESERVE, and WHILE statement 
blocks. Multi-level programming, however, may be used to 
restrict their use to specified program levels. 

7. SEARCH Statement 

The SEARCH and FIND statements have been com- 
bined to simplify searching a Table or File structure for 
a particular data unit. If found, the index variables in 
the data sturcturc's dimension list will be set at run- 
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time to point to the data unit's location, otherwise they 
will be set to minus one. 

8. UNPCK Statement 

The UNPCK statement has been implemented to allow 
a data unit to be unpacked into a list cf data units in 
seguence from left- to-right . If the combined length of the 
receiving data units is longer than the source, then they 
are filled with zeroes. 

9 . Procedure CALL Statement 

The procedure CALL statement has been changed to 
allow calls by value, value-result, result, address, and 
address-result. All input and output actual parameters 
are optional and need not agree in number, but must agree 
in type. An expression may be used as an input actual para- 
meter but only a data unit may be used as an output actual 
parameter. 

10. GOTO, KETURNIO, and RESUME, Statements 

The GOTO, RETURNTO, and RESUME statements haye been 
implemented to allow transfers only to labels within a 
System Procedure. The GOTO and RETURNTO statements, with 
special hardware condition checks, have not been implemented 
since the same capability is available by using the INTERRUPT 
Eoolean functional operator within an IE THEN GOTO statement. 
The GOTO statement with an Item or Index-switch name check 
has not been implemented since the same capability is avail- 
able with the CASE statement. 

11. RETURN Statement 

The RETURN statement has been changed to allow trans- 
fer with a data unit instead of transfer with the result of 
an evaluated expression. 

12. INPUT and OUTPUT Statements 

The INPUT statement has been implemented to allow 
moving cf Character and Binary records from READ, OCM 
(Operator communication medium) , and user declared Files to 
the following user specified receiving data units: Tables, 
Fields, Items, or variables. The OUTPUT statement has been 
implemented in a similar manner for PRINT, PUNCH, OCM, and 
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user declared Files. Both statements allow data to be 
moved back and forth from internal to external structures. 

1 3. EXEC Statement 

The EXEC Statement has not been implemented since a 
normal call tc a procedure, with the proper input parameters 
and at the appropriate programming level, accomplishes the 
same effect. 

14. STOP Statement 

The STOP statement, with a hardware special condi- 
tion check, has not been implemented since the same capa- 
bility is available by using the INTERRUPT functicnal oper- 
ator in an IF statement. 

15. COBEGIN and COEND Declaratives 

The COBEGIN and COEND declaratives which are des- 
cribed by Hansen in reference 8, have been implemented to 
allow simultaneous execution by more than one processor of 
several statements including procedure calls. Each process 
may ref er to shared resources such as variables, subscripted 
variables. File records, and non-reentrant procedures only 
if their values are not changed. Reading from and adding 
to the end of data structures, however, are legal accesses 
to a shared resource. 

GOTO statements are not allowed within a CQBEGIN- 
COENE block to prevent errors arising from the transfer of 
control from one process tc another. In addition, COBEGIN 
and COEND declaratives may be nested to any level within a 
System Procedure or Reentrant Procedure. Thus, they may 
be used to describe any combination of parallel and sequen- 
tial processes. 

16. RESERVE ana WAIT Statements 

The RESERVE statement has been added tc provide a 
means fcr the programmer to specify critical sections in 
each process within a COBEGI N-COE ND block. The parameters 
for the RESERVE statement are those resources which may 
be change-accessed by two or more processes. Each resource 
thus specified, is identified as belonging to a particular 
process. If another process desires access to the same 
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resource then that process will be enqueued on a wait list 
for later access when the resource is freed. The WAIT state- 
ment has teen added to allow synchronization of processes, 
that is, to specify that the controlling procedure is to 
suspend execution until one or more procedures have com- 
pleted their execution. These statements are intended to 
allcw the programmer to explicitly control the execution cf 
parallel and synchronized processes. 

17. SET Statement 

The SET statement allows assignment of evaluated 
expressions and Table values to a compatible data unit cr 
list cf units including other Tables. The data units allowed 
are variables, subscripted variables, and Tables. Table 
assignments must be size and Item-length compatible or the 
desired result may not be obtained. subscripted variables 
must specify Field name. Table name, and dimensions. 

The "SET (receptacle (s) ) TO (expression) THEN" 
statement has not been implemented since the sane capability 
is available by using an IF THEN SET statement. 

The "SET (receptacle (s) ) TO (expression) SAVING 
(Real data unit) OVERFLOW (label) " statement has not been 
implemented since the same capability is available by using 
the EEM operator within an IF THEN GOTO statement. 

E. EXPRESSIONS 

The expression types implemented in CMS-2ES include 
Real, Eits, Status, Character, and Boolean. Real expressions 
include Integer, Fixed-point, and Floating-point data types. 

1 . Real 

In Real expressions, a binary operator has been 
addec which gives the remainder after division of two real 
primaries (REM) . In addition, two functional operators 
have been added: The operator NUMBER, with parameter Bits 
primary, converts a Bits value into an Integer value; and 
the operator CHARCODE, with parameter Character primary, 
converts a character symbol coae into an internal integer 
representation. 
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The type conversion conventions for mixed operand 
expressions are, 

a. Decimal and cctal operands will he converted 
to decimal results. 

b. Integer and Fixed-point operands will be con- 
verted to Fixed-point results. 

c. Integer and Floating-point operands will be 
converted to Floating-point results. 

d. Fixed-point and Floating-point operands will 
be converted to Floating-point results. 

Where the receptacle is of smaller precision than 
the evaluated expression, the next least significant digit 
will be rounded and the remaining digits truncated. 

2. Eits 

The SHIFT statement has been replaced by the follow- 
ing unary operators in Eits expressions: shift left-logical 
(SHLL) , shift right-logical (SHRL ) , circular end-arcund 
shirt left (CIRSHLL) , and circular end-around shift right 
(CIRSHRL) . 

The binary operators, logical and (ANDI), logical 
or (OP.L) , and logical complementation (KGTL) , have been 
implemented to allow logical operations on Bits operands. 

If the operands are of unegual length, the shor'ter one is 
right justfied and filled with zeroes on the left before a 
binary operation is completed. 

The functional operator BIT has been renamed 
BITSTBIKG, but performs the same function of converting 
a Real primary to a Bits value and extracting a specified 
number of binary digits from it starting at any position in 
the string. 

3 « Character 

Cne functional operator has been added tc Character 
expressions. The CODECHAR operator, with parameter Real 
primary, converts an integer value into a single character 
symlcl code. The CHAR operator has been renamed SUECHAR, 
but performs the same function of extracting a specified 
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cumber of character symbols from a Character primary start- 
ing at any character position in the string, 
h. Boolean 

The unary operator COMP or complementation has been 
renamed NOT. The binary operators allowed in Ecclean expre- 
ssions are conjunction (AND) and. disjunction (OB). 

The comparison operators in relational expressions 
have been changed to: equal (=) , not egual (-*=) , less than 
(<) / greater than (>) , less than or equal (<=) , and greater 
than or egual (>=) . The following restrictions are placed on 
operand comparisons: Real operands are converted to the same 
type before they are compared. Bits operands of all lengths 
are compared from right- to-left and only for equal or not 
egual. Character operands are compared from lef t- to-right 
for all lengths with longer strings having a value of greater 
than if all other characters are egual, and Status operands 
are compared by their Integer value. In a Status variable 
declaration, the first Status constant associated with the 
variable is assigned a value of zero increasing by incre- 
ments of one for each additional Status constant. 

If an expression involves operations of the same pri- 
ority they are performed from lef t-to-right. In parenthe- 

sized expressions, the innermost par en thesized 'ex pressicns 
are evaluated first. A hierarchy of evaluation is shown in 
Table X. 
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PRI ORI TY 

1 



OPERATOR 



DEFINITION 



1 ABS,- 

CAT 
NOTE 


ABSOIUTE VALUE, UNARY MINUS 
STRING CONCATENATION 
BITSTRING COMPLEMENTATION 


2 ** 

SHLL 

SHRL 

CIRSHLL 

CIRSHRL 


EXPONENTIATION 
SHIFT LEFT LOGICAL 
SHIFT RIGHT LOGICAL 
CIRCULAR SHLL 
CIRCULAR SHRL 


3 *,/ 

REM 
ANDL 
ORL 


MULTIPLICATION, DIVISION 
REMAINDER AFTER DIVISION 
LOGICAL AND 
LOGICAL OR 


+r~ 


ADDITION, SUBTRACTION 


5 = ,->= 

<,>= 
>,<= 


EQUAL, NOT EQUAL 

LESS THAN, GREATER THAN OR EQUAL 
GREATER THAN, IESS THAN CE EQUAL 


6 NOT 


NEGATION 


7 AND 

OR 


CONJUNCTION 

DISJUNCTION 



TABLE X - CMS- 


-2RS MIXED EXPRESSION EVALUATION 
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IV. LANGUAGE ANALYSIS 



The following sections describe Simple lef t- to^right 
parsing, with k symbols of look-ahead, Ccntext-Free gram- 
mars (SLR (k) ) , an SLR(1) parsing algorithm, and SLR ( 1) syntax 
analysis of CMS-2RS. 

A. SIR(k) CONTEXT-FREE GRAMMARS 

Ibe class cf LR (k) grammars is the largest class of 
grammars which can be naturally parsed lef t-to-right and 
bcttcm-up using a deterministic pushdown automaton. Among 
the various sub-classes of LR (k) grammars are precedence 
and bounded-right-cont ext grammars. Since LR (k) grammars 
have these properties, CMS-2RS was defined as an SLR (1) 
context-free grammar. This section describes context- 
free grammars and SLR (k) grammars as presented ty ref- 
erences 10 and 9. 

1. Grammar 

A Grammar is defined by a quadruple of sets of ter- 
minal symbols (VI) , non-terminal symbols (VN) , a start symbol 
(S) , and productions (P) . The letters VT denote a finite 
set of terminal cr non-reduceable symbols from the vocabu- 
lary (V) of the grammar. The letters VN denote a finite 
set cf non-terminal or variable symbols from which various 
strings of terminals and non- terminals can be derived. 

The letter S denotes the start non-terminal symbol from 
which all strings of terminals in the grammar are derived. 

The letter P denotes the finite set of productions cr 
relations between the left part symbols in VN and the right 
part strings of symbols in V*, where V = V"N U VT and V* de- 
notes the set of all strings composed of symbols in V 
including the empty string. 

2. Context-free Grammars 

A Context-free grammar is one in which every pro- 
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duction is of tne form v=>W, where v is a single variable 
and w is any string other than the empty string. 

3. Direct Production or Reduction 

For a graiiaar G, a string v Directly Produces a 
string w or w Directly Reduces to v, written v=>w, means: 
if U=>u is a rule of G, and x and y are strings which may 
be empty, then v^xUy, and w=xuy. 

4. Production or Reduction 

A string v produces a string w or w reduces to v, 
written v=>+w, means: if n>0 and n is the number cf produc- 
tions frcm v to w, then v=u (0) =>u (1) =>u (2) =>. . .=>u (n) =w , 
where if v=w or v=>+w then v=>*w , ana u (i) denotes the ith 
production. 

5. Sentential P'orm 

A string x is called a sentential form if x is derivable 
from the start symbol S, written S=>*x. 

6. Sentence 

A sentence is a sentential form consisting only of 
terminal symbols. 

1 . Language 

The language of the grammar, written L (G (£) ) , is the 
set cf sentences: L (G) = (x | S=>*x and x is in VT+) . 

8. Phrase 

If w=xuy is a sentential form then u is called a 
phrase cf the sentential fcrm w for the non-terminal U if 
U=>+u. and S=>*xUy. In addition, u is called a simple phrase 
if S=>*xUy and U=>u. That is, not only must a reduction be 
possible using a production in the grammar, but the reduced 
sentential form must also be derivable from the start symbol. 

In addition, u is called a simple phrase if S=>*xUy and U=>u, 
that is, not only must a reduction be possible using a pro- 
duction in the grammar, but also the reduced sentential form 
must be derivable from the start symbol. 

9. Canonical Derivation 

A direct derivation xUy=>xuy is canonical, written 
xUy=|>xuy, if y contains only terminals. A derivation w=>+v 
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is canonical, written w=J>v, if every direct derivation in 
it is canonical. 

1 0. Parse 

A Parse of a sentential form is the construction of 
its derivation. 

11. Left-flight, 3ottcm-Up Parse 

In a left-right, bottom-up parse, the leftmost 
simple phrase (the Handle) of the current sentential form is 
always reduced. Thus, the string to the right cf this 
phrase always contains only terminals. 

12. Rightmost Derivation 

A rightmost derivation is one in which at each step 
the rightmost variable in the sentential form is replaced. 

13. LR(k) Grammar 

A Context-Free grammar is LR ( k) if for any sentential 
form w=xuy the following holds: there is a unigue form for 
w, and there is a rightmost derivation S=>*xUy=>xuy , where 
U is replaced by u at the last step, and U and u can be 
uniguely determined by scanning w from left-to-right up tc 
a pcint at most k symbols beyond u. 

B. SLR (k) PARSING ALGORITHM 

This section describes Context-free LR (0) and SLR(1) 
grammar parsing as presented by reference 9. 

1. Context-free Parsing 

let G be a Context-Free grammar, and suppose that 
the productions P are numbered 1,2,...,p. Let V be in the 
set VT U VN*. Then: 

a. A left parse of V is a sequence of productions 
used in a leftmost derivation of v from S. 

b. A right parse of v is the reverse of a sequence 

of productions used in a rightmost derivation cf v from S in G. 

Consider the grammar where the productions are numbered 
as shown: 
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a. E::=E+T — 1 

b. E : : = T — 2 

c. I: :=T*F — 3 

d. T:: = F — 4 
e- F : : = (E) — 5 

f. F::=a — 6 

The left parse of the sentence a* (a + a) is 2346512464b. 
The right parse is 64642641532. The right aost derivation 
from E is: 

a. E=>E+T:1 
fc. =>E+T*F : 3 

c. =>E+T*a:6 

d. =>E+F*a:4 

f. =>E+a*a:6 

g. =>T+a*a:2 

h. =>F+a* a : 4 

i. =>a+a*a:6 

Writing in reverse, the sequence of productions used 
in this derivation gives the right parse 64266431. In gen- 
eral a right parse for a string v in a grammar G is a seq- 
uence of productions which can be used to reduce v to the 
start symbol S. 

The parsing proceeds using essentially a right parser 
cycling through all possible rightmost derivations, in re- 
verse, that are consistent with the input. A move consists 
of scanning the string on top of the pushdown stack to see 
if there is a right side of a production that matches the 
symbols on the top of the stack. If so, a reduction is made, 
replacing these symbols by the symbol on the left side of 
the production. 

If no reduction is possible, then the next input 
symbol is placed on the pushdown stack and another attempt 
is made to reduce the stack. This process continues until 
the grammar nas been parsed or an error occurs. 
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2. LB ( 0) and 5LH(1) Parsing 

In reference 9, De Berner states that to construct 
an LB ( 0) parser for a Context-Free grammar G, configuration 
sets must be computed. A configuration set represents a 
state of the parse, that is, which parts of which produc- 
tions may have been used to generate the input string to 
the point of the parse. 

Each non-empty configuration set has one or more 
successors or configuration sets. In general, a configu- 
ration set S (i) has an s-successor for each symbol s in 
V that is preceded by a marker in one or more of S (i) 's 
configurations. A marker is a pointer to the next possible 
symbol to be read in the input list. 

An s- successor state consists of a basis set combined 
with a closure set. The basis set consists of all config~ 
uraticns in S (i) having a marker before an s, but with the 
marker moved to follow the S(i). The closure set is defined 
recursively to be the largest set of conf rgur at re ns that 
can be derived from the basis set until a terminal symbol 
is reached. 

An LR (0) parser for a grammar G is represented by 
the set of all configuration sets, where each set is a state 
of the parse with an accessing symbol, and a list of possible 
symbols which can be read next with an indication of whether 
to re-ad the next symbol and go on to another state, or to 
reduce and go on to another state. 

A Context-Free grammar is said to be SIB(1) if 
and only if each of the inadequate states of its successor 
states has mutually disjoint (simple) 1-symbol lock-ahead 
sets which allow the parser to determine which reduction 
to make. An inadequate state is one in which the parser 
must look ahead k symbols in order to determine which re- 
duction to make. 

An SLR ( 1 ) parser for a grammar, therefore, is repre- 
sented by the same set of configuration sets as is re- 
quired for an LR(0) parser with the addition of the simple 
1-lcck-ahead sets. 
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SLR(1) parsers make a decision to reduce rased upon 
all the symbols in the parse stack plus one more from the 
input text. The parse is accomplished by restructuring 
the stack after each reduction and saving the state of the 
parse to allow the parser to know where it has teen so that 
it can make the right decision for the next reduction. 



C. SLR ( 1) SYNTAX ANALYSIS OF CMS-2RS 

The SLR(1) Syntax Analyzer and parsing table generator 
produced by Woods and described in reference 11 was chosen 
to analyze the grammar because of its speed of execution. 

In developing an SLR(1) grammar for CMS-2RS, it was 
necessary to write a complete initial description of the 
language and then take small sections cf the grammar and 
analyze them until they were SLR(1). In that fashion, 
the grammar was successively built up and revised until a 
complete SLR(1) grammar was obtained. The execution time, 
using Wood's PL-360 based Syntax Analyzer, was on the order 
of 9 to 10 seconds of CPU time for about 200 productions 
on an IBM-360 Model 65 computer. 

Luring the grammar analysis it became apparent that com- 
bining the same sub-strings of symbols on the right part cf 
several productions into new productions greatly reduced 
the number of terminal transitions. This allowed a larger 
grammar to be handled for the same table sizes in Wood's 
Syntax Analyzer. The ’ result ant grammar is thus highly op- 
timized in terms of parsing table size; The limit cf 255 
productions in the Syntax Analyzer, however, did require 
that the revised grammar be split. The data declarations 
and header declarations were handled by separate grammars 
since they are blocked by easily recognizable beginning and 
ending delimiters. The implementation of this split and 
its implications are discussed in Section V. 



57 



V 



• DESIGN OF THE T WO- PASS C MS-2 BS COMPI LES 

The purpose of this project is to take the first step 
toward a practical implementation of CMS— 2 BS . A two-pass 
compiler was selected taking into consideration main memory 
requirements and project modularity. Also, having two 
passes offers a potential for code optimization in the 
second pass. This approach facilitates the task of making a 
significant start on a useful compiler in a limited time by 
isolating the analysis and synthesis functions from the 
detailed code generation, storage assignment, and interface 
handling functions. 

A. FIRST FASS v 

The first pass performs four basic functions. It scans 
the characters of the source program, builds the symbol 
table, parses program sentences, and generates an interme- 
diate language representation of the source program. 

1 . lexical An al-.yzer 

The lexical analysis is performed by the procedure 
SCANNEB. In writing the scanner’s case statement, it was 
decided tc use a different case for each delimiter (except 
for «•**«« and »-!=»• which are handled with and re- 

spectively) . By doing this, there is no need for having a 
table of all the tokens in the language and the correspond- 
ing table lookup mechanism. SCANNER does all the symbol 
table lookup and enter operations required by the compiler. 
When an identifier is scanned, the symbol table is searched 
to determine if this identifier is a reserved word or if it 
is an already entered name. If not found, the new name is 
entered in the symbol table. From that point on each 
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identifier is represented d y its index into the symbol table 
so that nc forther search is ever needed. 

As will be explained later, two independent analyzer 
procedures are used to parse the declarations and the 
dynamic statements. For this reason it became necessary to 
build a linkage between SCANNER and these two analyzers that 
would allow the implementation of the necessary switching 
mechanisms. The linking function is performed by the proce- 
dure SCAN. SCAN is called by the analyzers when the next 
token is desired. SCAN calls SCANNER to obtain the next 
symbol in the input stream. When SCANNER returns certain 
reserved words, SCAN switches control to the appropriate 
analyser. For those tokens that appear in both grammars, 
SCAN allows for two different internal representations. 

SCAN also facilitates the implementation of certain symbol 
table handling mechanisms as will be explained later. 

2 . Symbol Table Des iq n 

After all memory allocations to variables used by 
the compiler are satisfied, the remainer of the assigned 
region is allocated to the symbol table. The symbol table 
is divided into two main parts: the identifier -directory and 
the constant fabj.e. 

a. Elock Structured Identifier Directory 

The following method was chosen to implement the 
two level (global, local) block structure of CMS-2 using 
hash addressing for table search. Every identifier is 
concatenated to a two character prefix which indicates the 
level of such identifier. Prefix "00" correspond to global 
scope, while all other prefixes from "01" to "99" correspond 
to local scope. Therefore, every identifier declared in a 
SYS_DD is entered in the identifier directory with prefix 
"00". For example, variable "ABLE" would be known to the 
compiler as "00ABLE". A block counter is maintained and 
each time the reserved words SYS PROC and SYS PROC R are 
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encountered this counter is incremented and the current 
prefix is correspondly altered. Thus, variables declared 
within LOC_CD's or AUTO_DD's are entered in the directory 
with the prefix corresponding to the sequential number of 
the SYS_PROC where these data designs appear. When SCANNER 
recognizes an identifier, it first looks for its presence in 
the identifier directory with the current prefix and, if not 
found, then with the global prefix ("00") . 
b. Hash Addressing 

The chained hash addressing technique described 
by Gries [Ref. 12] is used to access the identifier direc- 
tory. A hash table size of 1229 was chosen to minimize the 
number of collisions in medium size programs. This size can 
be changed tc any desired prime number, requiring only one 
minor change in the procedure HASH. The hashing scheme uses 
the number Qf characters in the word, the second and third 
characters, and the last and next to the last characters as 
arguments. The hashing function is applied to the identi- 
fier after it has been concatenated to the proper prefix as 
previously discussed. Procedures RESERWRD and LOOKUP 
handle all the required symbol table searching. The list of 
reserved words is preloaded in the identifier directory by 
the procedure INITIALIZE. No prefix is concatenated with 
reserved words. In addition, no collisions occur when 
hashing reserved words, so RESERWRD needs only to compare 
the identifier scanned with one entry in the directory to 
find if it is a reserved word. Caution must be exercised if 
the size of the hash table is changed or if the language is 
revised to include new reserved words to insure that this 
property is preserved. 

Procedure LOOKUP follows the basic flow chart 
found in page 222 of Ref. 12. LOOKUP adds the current block 
number prefix to the identifier and then hashes it and 
searches the identifier directory. If the identifier is not 
found then LOOKUP tries again using prefix "00." If still 
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net found, the identifier is entered in the directory with 
the current prefix. 

c. Identifier Directory Design 

Ihe identifier directory was designed taking in 
consideration the large variety of descriptors required to 
represent the wide vatiety of conditions encountered in the 
language. Appendix D explains the descriptor formats in 
detail. Ihe descriptors are stored in the constant table; 
hence, the identifier directory can have a simple and 
uniform structure. Each identifier direct ory . entry uses 15 
bytes distributed in four fields as shown below. 

(D Ten bytes are reserved in the identifier's 
name field to accomodate a maximum of ten 
characters (eight characters from the source 
plus two in the prefix). 

( 2 ) One byte is used for the semantic code. 

The semantic code is an integer from 1 tq 148 
that identifies the token recognized by SCANNER 
to procedure SCAN - . 

<3) Two bytes hold the chain field. This 
field is used in case of collisions to store a 
pointer connecting entries with the same value. 
<4) Two bytes are used for the de'seriptor 
pointer field. This field contains a pointer to 
the constant table where the descriptor 
containing all the attributes of this identifier 
is stored. 

d. Constant Table Design 

The constant table is essentially a large array 
used to store constant values as they are recognized by the 
scanner and descriptors for identifiers as previously 
indicated. When procedure SCANNER scans a constant, it 
stores it in the constant table. This includes character 
constants as well as numeric or bits constants. The first 
byte of every entry in the constant table is used to store 
the length of the entry , i.e., the number of bytes that 
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follow. In the case of numeric constants, the need arises 
tc differentiate between the six different types of cuaeric 
constants used in the language. In order to do this, the 
lew order five bits of the header byte are used to indicate 
the length of the entry as explained above. The remaining 
three high order bits are used to indicate the type of 
numeric constant according to the following code: 

000 for octal integer 

001 for octal fixed 

010 for octal real 

011 for decimal integer 

100 for decimal fixed 

101 for decimal real. 

3 - £y_nt ax Anal yz e rs 

The syntactic analysis is performed by the proce- 
dures ANALYZE and BANALYZE. ANALYZE is the main grammar 
parser. It is called once by procedure MAIN and returns 
only when the source program has been completely parsed. 
ANALYZE calls SCAN each time a new token is to be read. 

When SCAN recognizes any of the reserved words SYS_DD, 

AUTO ED, LOC DD, PROCEDURE, or FUNCTION it calls EANAIYZE 
which is the second parser. BANALYZE handles the 
declarations grammar. It also uses SCAN in the same manner 
as ANALYZE. When BANALYZE completes the parsing of a data 
design or a procedure or function declaration it returns to 
the place where it was called by SCAN, and SCAN passes the 
corresponding token to ANALYZE which continues execution. 
With this scheme, whole declarations are seen as a single 
terminal symtol by the main grammar. This concept, of 
course, can be extended to any number of parsers. For 
example, when a language is rather extensive (a classic 
example would be PL/I), it may become extremely difficult to 
develop a single grammar of a given type. This job is 
greatly simplified by dividing the task into a main grammar 
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and several component grammars. In addition# the most 
appropriate parser can he used for each component grammar. 
For example, a component grammar could handle expressions 
and use an operator precedence parser. Using the interme- 
diate linkage concept between the scanner and the syntax 
analyzers as explained before, all that is needed is a 
special symbol to delimit each component grammar. These 
special symbols can be part of the syntax of the language or 
they can be added to the input stream by the compiler 
itself. 

4 . Eackus-N au r Form JBNF)_ 

Appendix A contains a complete listing, using 
Eackus-Naur Form notation, of the SLR(1), context free 
grammar developed for the CMS-2RS language. The grammar is 
divided into a main grammar and a component grammar. The 
symbols <SYS DATA DECL> , <LQCA1 DATA DEC L> , <AUTO DATA DECL> 
and <SUE__E0U1INE DECL> are treated in the main grammar as 
terminal symbols. The component grammar handles these 
declarations. The mechanisms to implement this scheme are 
explained in Section 3 above. 

5 • I ntermed ia te langua ge (IL) 

Generation of the object program in an intermediate 
language form is one of the primary tasks of the first pass. 
Due to time limitations, the generation of intermediate 
language could not be implemented. An IL format that could 
be used in future work on this compiler is proposed in this 
section. 

a. IL Format 

Each entry in the IL table consist of three 
bytes. The high order seven bits of the first byte are used 
to represent the operation code. the low order remaining 
bit is used to indicate an indirect operation. A set of 
operation codes with their meanings is shown in Appendix E. 
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the codes shewn should be sufficient to represent the entire 
CHS-2ES language. The second and third bytes are used for 
the operand field. In most cases this field will contain 
the address cf the operand's entry in the identifier direc- 
tory cr the constant table. 

6. First Pass Output 

The first pass output should consist of two disk 
files, one fer the symbol table and another for the interme- 
diate language generated by the dynamic statements. Future 
werk reguired to complete the first pass includes IL genera- 
tion, and the writing of two routines, one to write the 
symbol table into a disk file and another to write an IL 
buffer into a second file. 



B. SECOND PASS 

The main task performed by the second pass will be the 
translation cf intermediate language into machine language 
(HI) . Soutines must be developed to read the IL file and 
produce HL which executes on the target machine. This 
routines must insert the HL necessary to compute subscript 
values, perform data type conversion, map actual to formal 
parameters, and implement dynamic allocation. Some code 
optimization capability should also be included here. 

Storage areas for variables and tables must be assigned 
in this pass. Routines must be provided that will process 
the symbol table file and perform static allocation cr 
generate dynamic allocation mechanisms. This pass must 
allow for linkage with other program modules. Communication 
links must be established for external references. These 
links shcyld be compatible with the reguirements of the 
linking routines of the target machine's operating system. 
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VI . CONCLUSIONS 



Several attemps have been made, with less than optimal 
results, tc implement a universal language and compiler 
system. CMS- 2 is a system of this type, but it has met with 
limited success when used to implement large, self-contained 
computer systems. To get around the language limitations, 
extensive use of the direct code option has been made. This 
practice defeats the purpose of a high level language and 
creates problems in system design and maintenance such as 
correctness of initial program logic and program segment 
integrity. If the potential of a high level language and 
compiler system are to be fully realized, there must be 
controls over which language constructs are allowed at each 
level of software. Furthermore, insertion of direct cede 
should not be allo.wed. The CMS-2ES system is a step in that 
direction . 

A. RESULTS 

The most apparent ambiguities, redundancies, and limi- 
tations which exist in the CMS-2 program, data, and control 
structures have been identified. Proposed corrections to 
these deficiencies have been incorporated in CMS-2RS. An 
SLR (1) context free grammar has been defined for this 
language using BNF notation. This grammar is suitable for 
the construction of parsing tables using an automatic 
compiler generating system. Such a system, using Wood's 
SLR(1) ANALYZER, was employed to produce parsing tables for 
the first pass of the CMS-2RS compiler. 

In order to support the structured programming concept 
in a modular library environment, changes where made to the 
external referencing mechanisms of CMS-2 so that external 
references are only allowed between different compile-time 
Systems. Header declaration statements were also revised to 
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prevent modifications of an Element's internal data alloca- 
tion and control structure representation. This CMS-2 
construct facilitates the violation of program segment 
integrity and allows careless program design and 
maintenance. 

The concept of grammar segmentation was implemented in 
the CMS-2RS compiler. Data designs and dynamic statements 
were grouped into separate grammars which are parsed by 
different sections of the compiler. This concept is easily 
extendable to other sections of the grammar such as expres- 
sions and header statements. 



B. FUTURE WORK 

Several tasks need to be completed in order to fully 
implement the CMS-2RS system. The work reguired to complete 
the first pass includes the completion of intermediate 
language design and the writing of the semantic routines 
required for the translation of dynamic statements into 
intermediate language form. Also, header and user file 
declarations need to be implemented. This would be 
accomplished by adding the header and file declaration 
statements to the declarations' grammar and writing the 
correspondig semantic routines. File manipulation operators 
should be added to the main grammar. 

The next step is to write the second pass. The second 
pass must handle a variety of functions including memory 
allocation, data type convertion, subscript calculation and 
checking, parameter mapping, and code generation and cpti- 
miz at ion . 

Further development efforts should include studies of 
the desirability of adding list processing constructs to the 
CMS-2ES language. 
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097 <SUBTAriLE CLAUSE> = SUBTAblE <ID> ( <NUM0RTAG> 

0 9S I <SU8T ABLE CLAUS E> , <NUMCRTAG> 



APPENDIX B 

EES CHI PTION OF THE CMS-2BS LANGUAGE 



The CMS-2ES language is described in the following 
sections using a modified metalinguistic notation which 
was originally developed by Eackus and is described in ref- 
erence 12. This modified notation uses the following basic 
symbols: 

: := A connective meaning "is defined to be". 

1 A connective meaning "or defined to be". 

< > Delimiting brackets enclosing a metalinguistic 
variable. 

Delimiting traces enclosing brackets meaning 
"more than one metalinguistic variable", where 
each variable is separated by a comma, dollar 
sign ($) , or space as appropriate. 

The sections below describe the syntax and semantics, 
and give examples for each structure or statement in the 
language. Pregram structure is described in Section 1. 
Section 2 describes the basic symbols and delimiters of the 
language that are formed from the CMS-2RS alphabet. Data 
structures and referencing conventions are described by 
Section 3, followed by control structures in Section 4. 
Section 5 describes Real, Bits, Status, Character and 
Boolean expressions. The header and debug statements were 
not implemented in the present version of CHS-2BS and are 
not included in this appendix. In the examples below, the 
notatior " <metaling uistic variable>" is used when the Item 
has not yet been defined, but its inclusion is necessary 
for a complete description cf the example. References to 
imposed limits on the numbers of elements allowed in the 
statements that follow are actually limitations imposed by 
CHS-2RS compiler and its table sizes. 
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1. Program Structure 

a. System and System Elements 
Syntax: 

<SYSTEM> : :=SYSTEM CIDENT IFIER>$ 

| ^SYSTEM EL EM £ NT ENDS 
<SYS1EM ELEMENTS : =<HEADER DECLAE ATIO N> 

| <S YSTEM DATA DECLAEATION> 

{ <SYST EM PEOCEDUEE EECLARATION> 

| <SYST EM BEENTSANT PEOCEDUEE 
DECLAE ATI CN> 

| EXTREF <IDENTIEIEE>$ 

Semantics: 

A System is a compile-time grouping of System Ele- 
ments, headers, debug statements, and externally referenced 
(EXTEEE) System Element identifiers. System Elements are 
either System Data, System Procedure, or System Eeentrant 
Procedure declarations. The order in which Elements are 
listed is up to the programmer and specifies the desired 
order of compilation and linking. A header may cnly be in- 
cluded once at the beginning of a System. The total number 
of Elements allowed in a System is ninty-nine (99). 

Examples: (see Section Id.) 

b. System Procedures and System Reentrant Procedures 
Syntax: 

<S YS1EM PROCEDURE DECLARATIONS :=SYS_PECC CIDENTIE IER>$ 

[<SYSTEM PROCEDURE 
ELEMENT>| ENDS 

<SY STEM REENTRANT PROCEDURE DECLARATIONS :=SYS_EECC_R 

IDENTIFIERS (<SYSTEE REENTRANT 
PROCEDURE £LEMENT>| ENDS 

Semantics: 

Both types of System Procedures are the basic build- 
ing blocks of the CMS-2ES language. Procedures cay reference 
each other only through their prime procedures anc are sep- 
arately ccmpileable and executable. Reentrant procedures 
consist of separate sections of data and non-changeable cede. 
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Examples: (see Section Id.) 

c. System Procedure Elements 
Syntax: 

<S YSIEM PROCEDURE ELEMENTS :=<LOCAL DATA DECLARATION 

| <AUTO DATA DECLARATICN> 

| <PROCEDU BE SUB-ROUTINE 
D£CLARAT10N> 

| <FU NCTIO N SUB— ROUTINE 
DECI AEATION > 

<SYSTEM REENTRANT PROCEDURE ELEMENTS :=<AUTO DATA 

DECLARATIONS 
| <PROCED UEE SUB- 
ROUTINE E ECLARATIC N> 
|<FUNCTION SUB- 
ROUTINE DECIARATION> 

Semantics : 

The elements in both types of System Procedures 
may te ordered in any manner, but Auto Data declarations 
must precede the applicable sub-routine declaration. Auto 
Lata declarations are dynamically allocated at execution 
time, with a separate copy provided to each calling sub- 
routine. 

Examples: (see Section Id.) 

d. Procedure and Function Sub-routine Declarations 
Syntax: 

<PRCCEDUR£ SUE-ROUTINE DECLARATIONS :=PROCEDURE CIDENTI- 
FIERXINPUT PARAMETERSXOUTPUT PARAMETE FSXIABEL 
PARAMETERS>) $< SIA IE ME NT>$ 

CINPUT PARAMETERSS := ( f<VARIAELE>^ 

<OUTPUT PARAMETERSS:-! £<VARIABLE>^ 

<LAEEI PARAMETE-RSS := | | £<LAEEL NAME>^ 

<FU NCTICN SUB-ROUTINE DECLARATIONS : = EUNCTIOlJ <DA TA T YPE> 
<IDEM 1IFIERXI NP UT PARAMETERS >) $ <ST AT EM E NT> $ 
Semantics: 

A Procedure may have any one, twc, three, cr none 
of the members of the set of input variables, cutfut var- 
iables, and label names as formal parameters. A Function, 
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however, must have at least one input parameter. All input 
and output parameters must have been previously declared 
in data declarations, but Function names are declared 
when the Function is defined. Both Procedure and Function 
sub-routine declarations must include one statement. There 
is no imposed limit on the number of sub-routine declarations 
allowed within a System Procedure or Eeentrant Procedure. 
Example : 

SYSTEM ALPHA $ 

CHEAPER DECLARATION 
CSYSTEM DATA DECLARATION 
EXTREF A S 
SYS PROC B $ 

T— 

CLOCAL DATA DECLARATI 0N> 

PROCEDURE E (IN | OUTJ j LABEL ) $ 

CSIATEMENT>S 
CAUTO DATA DECLARATION 
EU NOTION C (INI) $ 

CS TATEMENT>$ 

ENDS 

SYS_PROC_R DS 

CAUTO DATA DECLAR ATIO N > 

PROCEDURE D | OUT 1 1 | L A E EL 1) $ 

CSTATEMENT>S 
CAUTO DATA DECLAR ATIO N> 

FUNCTION E (IN2) S 
CST AT EM ENT>$ 

ENDS 

ENDS 

e. Statements and Blocks 
Syntax : 

CSTA1EMENT>: ; =CLABEL NAME>:CBASIC STATEMENT 
ICEASIC STATEMENTS 

CEASIC STATEMENTS : = CSIMPLE ST AT EH ENT > 

| C VAR Y STATE HE NT> 

|CCASE ST ATEMENT> 

ICHHILE STATEMENT> 
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| <IF STAT EMENT> 

<SIMPLE STATEHEUT>: : =BEGIN £<STATEMENT>£ END 

| COBEGIN £<STATEMENT>J COENE 
| <S ET STATEM ENT> 

| <SNAP STATE MENT> 

| <S EASCH STATEMENT 
| <1 NPUT STATEMENT 
J <OUTPUT STATEMENT 
| <E NCODE STATEMENTS 
jXEECODE STATEMENTS 
| <PACK STATEMENT > 

|<UNPCK ST AT EM EN T> 

| <PROCED USE STATEMENTS 
| <GOTO STATEMENTS 
| <EETURNTO S TATE ME NT> 

| <BESUME STATEMENTS 
| <RESEEVE STATEMENTS 
] <W AIT STATEMENT> 

| <REIURN STATEME NT> 

| <STOP STATEMENT 



Semantics: 

A statement directs some action or controls the ex- 
ecution of a group of statements. The group of statements may 
themselves be a statement, thus allowing nesting cf statement 
groups. These goups are delimited by the reserved words 
BEGIN-END or COEEGIN-COEND and nay be inter-nested to any 
level. BEGIN-END statements imply seguential processing 
and COEEGIN-CCEND statements imply parallel processing. 
COEEGIN-COEND statements, however, may also be processed sequen- 
tially. All statements within COBEGI N-CCEND blocks may only 
change-access mutually disjoint sets of data anc control 
structures, that is, two statements cannot access the same 
data or control structure. 
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Example: 

EEGXN 

<STATEMENT> 



< STATEfiENT> 
CCBEGIN 

<STATEMENT> 



<S1 AT EMENT'> 
COEND$ 

BEGIN 

<STATEMENT> 



<STATEtfENT> 

ENDS 



ENDS 

2. Easic Symbols and Delimiters 

The CMS-2ES alphabet consists cf letters, digits and 
special symbols from the U.£. ASCII Standard Character Set 
The following special symbols are elements of the alphabet 



+ (plus) 

(minus) 

/ (slash) 

* (asterisk) 

. (decimal point) 

( (left parenthesis) 
< (left bracket) 

> (right bracket) 



) 

$ 

9 



(right parenthesis) 
{dollar sign) 

(comma) 

(prime) 

(bar) 

(space) 

(underline) 

(colon) 
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= (egual) " (guote) 

-n (net) S (ampersand) 

(pound) (percent) 

a. Identifiers and Reserved Words 
Syntax: 

<IDENTIEIER> ::=<L£TTER> 

l <IDEN TIFIERXDECI EAL DIGIT> 

| <IDENTIFIERXLETTER> 

( <IDENTIFIER>_ 

<LETTER>: :=A | B | ... | Z 
<DECIHAI DIGIT>: :=1 (2J... |9|0 
Semantics: 

Identifiers are composed of sequences c£ letters 
and digits of any length, and must begin with a letter. Only 
the first eight positions are used and hence twe different 
identifiers must be unigue in the first eight positions. 

The blank space must be used as a delimiter between suc- 
cessive identifiers and may be used between delimiters and 
identifiers for clarity. 

Examples : 

ALPHA 
SYS_PROC 
BETA 1 

b. Real Constants 
Syntax: 

<RE AL CCNSTANT>: :=<OCTAL CO NSTANT> 

| <DECI MA_L CONST ANT> 

<OCTAL CONSTANTS : =&<OCTAL INTEGER> 

|S<OCTAL EIXED— POIN T> 

| &<OCTAI FLOATI NG-PCI NT> 

<OCTAL INTEGEE>::= <OCTAL DIGIT> 

| <0C TAL INTEGERXOCTAI DIGIT> 

<OCT AL EIGIT> : : = 0 | 1 | 2 | . . . | 6 | 7 

<OCT AL FIXED- £OINT>: : = <OCTAL INT EGER> . 

| . <OCTAL I N TEGER > 

| <OCT AL INTEGER> . <OCTAL IN IEGER> 
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C0C1AL FLOATING— POINT>: :=<OCTAL I NTEGEE>E<OCTAI EXPCNENT> 

JCOCTAL INTEGEE>E<SIG NFL CCIAL 
EXPONENTS 

| <OCTAL FIXE D-EOINT>E< CCIAL EXPONEIIT> 
| <OCTAL FIXED— PO IN T> E< SIGNED OCIAL> 
EXPONEN T> 

<OC IAL EXPONENT>: :=<OCTAL DIGITXCCTAI DIGIT> 

<SIG NED CCIAL EZPQNENT> ; :=+<OCTAL EXPONENTS 

| -<OCTAL EXPCNENT> 

<EXPONENT>: : =<DECIMAL DIGI TXDECI MAL DIGIT> 

<D£CIMAI CONSIANT> ::=<DECIMAL INTEGEB> 

| < DECIMAL FIXED- POINT> 

KDECIMAL EL 0 AT I NG-POINT> 

<DECIMAL INTEGEE>::= <DECI MAL DIGIT> 

<DECIMAI FIXED-PCINT>: :=<EFCIMAL 1NTEGER>. 

JXDECIMAL IN1'EGEB> 

j <DECI MAL INTEGEB>. <DECI MA I INTEGEB> 

t 

<DECIEA I FLCATING-PGINT> : JXDECIMAL IN TEGEE>E< DECIMAL 

EXPONENT> 

| <DECIMAL INIEGER>E<SIGNED 
DECIMAL EXPONEN I> 

| <DECI MAL FIXED-POI NT>E<DECIMAL 
EX PONEN T> 

| <DECI MAL FIXED-POI NT >E<SIGN EE 
DECIMAL EXPONEN I> 

<DECI.MAL EXPONENT>: :=<DECIMAL DIG I TXDECI MAL DIGIT> 

<SI GNEE DECIMAL EXPONENT>: : = + <DECIMAL EXPONEN T> 

1 -<DECI MAL EXPONENTS 

Semantics : 

The total number of digits and characters ( 
and E) allowed in a real corstant is twenty-two (22). 
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Example: 

1 

1.0 

.35 

3. 

2.5E+13 
3E10 
•2E-12 
+ 1 

-2.4 
S-7E + 12 
£77 

c. Bits Constant 
Syntax: 

<BI1S CONSTANTS : =# <HEXADECIMAL DIGIT> 

| <BITS CONSTANTXHEX AEECIMAL BIG1T> 
CHEXABECIMAL DIGJT> : :=<DECIMAL DIGIT> | A | B i . . . j f 
Semantics: 

The Bits constant is a sequence of binary digits which 
is represented by a sequence of hexadecimal digits. Each 
digit represents four binary digits of cnes or zeroes. The 
numfcer cf hexadecimal digits allowed in a Bits constant is 
twenty-two (22) including the pound sign . 

Example: 

j#1234ABFE 

d. Status Constant 
Syntax: 

<STATUS CON STAN T>: :='<IDENTIFIER> • 

Example : 

• HOT* 

•COLD* 

' ALERT 1 1 

e. String Constant 
Syntax: 

<STBI NG CONSTANTS : = "< ALPHABET SY MBOL >" 

| " <ST RI NG CONST AN T X ALPHABET SXMB0L>" 



85 



<ALPHABE1 SYMBOLS :=<LE1TER> 

1 <DECIMAL BIGIT> 

| < SPECIAL SYMBOI> 

<SPECIA1 SYM£OL> :: = +|-'|/|*|. j) j ( j$|, j • (space 

= : i I 

Semantics: 

There is no imposed limit on the number cf characters 
allowed in a string constant. A double quote however, 

is net allowed. 

Example: 

"STRING CONSTANT" 

f. Boolean Constants 
Syntax: 

< BOOLEAN CONSTANTS :=TRUE 

( FALSE 

Semantics: 

The internal value of TRUE is one (1) and FALSE is 
zero (0) . 

g. Comments 
Syntax: 

<COMMENTS :=%<ALPHABET S YMBCL> 

j t /^CCOMK ENTX ALPHABET SYMB01>% 

Semantics : 

The comment statement may be used to document a pro- 
gram. It may be inserted anywhere within the pregram or its 
statements but there must be at least one blank inserted if 
it follows an identifier. 

Example: 

SET: THIS IS AN ASSIGNMENT STATEMENT A TC B$ 

3. Eata Structure 

a. Data Declarations 
Syntax: 

<SYSTE M DATA DECLARATIONS : = SYS_DD <IBENTIFIER>$ 

£<DATA ELEMENT^ ENDS 

<LO CAL EATA DECLARATIONS :=LCC_DD <ID E NTI E IER >1 

£<DATA ELEMENT><J ENDS 
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<AUIC EATA DECLARATIONS :=AUTO DD <IDENTIFIER>$ 

-r 

£ <D AT A ELEMENT>J IKES 
<DATA ELEMEN TS : =< V ARI ABLE DECLA RATIO N> 

| <T ABL E EECLARATION> 

| < FORM AT DECLARATION> 

| <T AG DECL ARATIO N> 

Semantics: 

A data declaration defines the data identifiers and 
their attributes which apply to the dynamic statements that 
follow. There is no imposed limit on the number cf data 
elements allowed within a data declaration or on the num- 
ber of data declarations allowed within a System. System 
data declarations apply to the entire ccmpile-time System 
and local or Auto data declarations apply only tc the System 
Procedure in which they are defined, 
b. Variable Declarations 
Syntax : 

<V ARIABLE DECLARATIONS :=VRB1 <DATA TYFE> <ITEM> $ 

<DAIA T5PES :=INTEGER (<DECIMAL INTEGER>) 

IFIXED (<DECIMAL IN TEGEE> , <DECIMA L IN 1EGER> ) 
1F10AT (<DECIMAL INTEGER>) 

| EITS (<DECIMAL INT EGER>) 

|CHAR (<DECIMAL I NTEGER>) 

| STATUS ( ^<ST ATUS CONSTANT^) 

| BOOLEAN 
CITEFS :=<IDENTIEIER> 

|<IDENTIFIER>=<CONSTANT> 

<CCKSTANTS :=<REAL CO NST ANT> 

| <BITS CONSTANT> 

| <CH ARACT ER CONST ANT> 

J <STATUS CO N STA NT> 

| <EOOLEAN CONST ANT> 

| <TAG> 

<TAG>: :=<IBENTIFIER> 

Semantics: 

The variable is a one-dimensicnal data structure used 
to store data values for each data type. There is no im- 
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posed limit on the number of Items allowed in a variable dec 
laraticn. The parenthesized integers in the data type speci 
fication determine the length of the Item. For types Inte- 
ger, Fixed, Float and Bit's the length is in binary digits. 
The actual length implemented, however, may vary depending 
upon the arithmetic and addressing characteristics of the 
target machine. There is nc imposed limit on the number 
of character symbols allowed in a character variable. 

Status variables do not have length in the usual 
sense but have a capacity based upon the number of status 
constants assigned them up to a maximum of 127. 

Examples: 

VREL INTEGER (15) A, B 1, C= 1 23765, E3$ 

VRBL CHAR (34) C1="THIS IS A STRING?' 1 
VRBL STATUS ('COLD' ,• WARM' ,'HOT') N E AT H E E $ 

VRBL EC.OLEA N ONT ARG£T=FALSE, H0S1ILE=TR UE$ 

C. Tag Declaration 



Syntax : 

<T AG DECLARATIONS :=TAG *^<IBENTIFIER>=<REAL CONSTANTA^ $ 
Semantics: 

A tag is a name for a Seal constant. Once de- 
clared, tags may be used in data declarations and dynamic 
statements, where the appropriate constant value will be sub 
stituted. There is no imposed limit on the number of identi 
fiers defined in a tag declaration. 

Example: 

TAG A=3. 5, E=1 , C=3. 2E-1 0$ 



d. Format Declaration 
Syntax: 

<FO RMAT DECLARATIONS : =F0RMAT 
CCNT SCL> /^DESCRIPTOR 
Symbol: 

CCARRIAGE COll TROL> : : =space 

10 
I- 
I 1 
1 H 



<IDENTIFIER> (CCABEIAGE 
GROUP>^) $ 

Definition: 

single space and print line, 
double space and print line, 
triple space and print line, 
page eject and print line. 
Same as 1 and cancel header. 



88 



<DESCRIETOR GROUP>: : =<DE SCEI ETOR> 



<DESEBIETOR>: 



|m( <EESCRIPTOR> ) 



Symbol: 


Definition : 


:=Iw. d 


Fixed-point binary to fixed-point 
decimal character string. 


| Fw. d 


Floating-point binary tc fixed-point 
decimal character string. 


| Ew. d 


Floating-point binary tc floating 
point decimal character string. 


1 Ow. d 


Fixed-point binary to fixed-point 
octal character string. 


1 Hw. d 


Binary digits to hexadecimal 




Character string. 


| "STRING 


"Integer coded characters to 
character symbol strings. 


| Aw 


First w symbols of an alphanumeric 
data unit are transferred as charac- 
ters. 


| Lw 


Last w symbols cf an alphanumeric 
data unit are transferred as charac- 
ters. 


| wX 


Skip v characters of an input record 
or space w characters in an output 
record. 


. I Tw ' 


A position designator of tab for 
buffer at character position w. 


<f/2 


End of record, or number of records 
to be skipped. N+1 slashes cn input 
causes n records to be skipped. 

N+1 slashes on output causes n blank 
records to be produced. 


| n<DESCRIPTOR> 



Semantics: 
The format 
desired conversion 
external forais. A 
OUT E UT , ENCODE and 



declaration specifies to the ccmpiler the 
or data elements between internal and 
format identifier is referenced by INEUT/ 
DECODE statements tc describe data ccn- 
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versi.cn requirements. In the format descriptor, u is an 
unsigned integer representing the maximum number of characters 
of a field in the external medium. Integer w includes 
the space for signs, radix points and exponent descriptions, 
but is limited in size to the width of the output medium line. 
The unsigned integer d represents the number of characters 
that appear to the right of the radix point in the output 
medium, hence d nuist be less than w. The unsigned integer 
n specifies the number of repetitions cf a descriptor to be 
applied to consecutive output fields on a line. The unsigned 
integer m specifes the number of repetitions of a group 
of descriptors to be applied to consecutive output fields on 
a line. A space must follow a format data type symbol sucJi 
as I, E, and H. 

Examples: , 

FORMAT FlOOf* n , 3E 10, F 14.7,4(1 6,F 6.2))$ 

EGEHAT E200 ("1 ", "STATUS: " ,A 4 ,//, "ACTION : ", A 9) $ 
e. Table Declaration 
Syntax: 

CTAELf IECLARATION> : :=<T ABLE HE AD>£<T A ELE ELEMENT>jEND_TABLE $ 
CTA3LE EEAD> : :=TABLE £<IDENTIFIER>£( (<DIMENSION>J ) $ 

1INDIRECT TABIE^<IDENTIEIES^( £<DIKEKSI0N>3) $ 

<DI EE KSICN> : ; =< CONST ANT > 

CTAfilE ELEMEN 1>: : =FIELD <DATA TYPE>£<EIEID ITEE^$ 

' J ITEM_ ARE A <IDENTIF IER>$ 

|SUB_TAELE <1 DENIIFIEB> (t<DIMENSION>J ) $ 

<EI ELE ITEE>: : =<ITEM> 

| <IDENTIEIER>= (t<PHESET>|) 

| <IDENTIFIER>=m ({<PRESET>|) 

<PRESET> : :=<C0NS1ANT> 

Semantics: 

The Table declaration creates a multi-word data struc- 
ture whose basic element is the Item. All Items in a Table 
contain the same number cf words and Fields. An Item -area 
is a working area with a dimension of one, and the same Field 
characteristics of the parent Table. A Sub-table is a subset 
of contiguous Items in a Table, and thus is not a separate 



90 



data structure. The unsigned integer m indicates that m 
consecutive Fields are to be preset tc the same value. 

There is no imposed limit of the number of Table 
declaration blocks. The maximum number of Tables allowed in 
a Table declaration block is twenty (20). The maximum number 
of dimensions allowed in a Table is 128. The greatest value 
a single dimension can have is 65,536. The maximum number 
of Fields allowed in a Table Item is fcrty (40) . There is 
no imposed limit on the number of Item-areas and Sub-tables 
that can be declared within a Table block. 

■ To reference an Item within a Table, the Table name 
followed by the subscript list must be specified. To ref- 
erence a Field within a Table Item, the Field name follow- 
ed by the Taole name and subscript list must be specified. 

To reference a Field or Item in a Sub-table is the same as 
for Tables. The dimensions must be within the defined 
subtable boundaries or an error will occur. Tc reference an 
Item-area, the Item-area name in parentheses must be 
specified. To reference a Field within an Item-area the 
Field name followed by the Item-area name in parentheses 
must be specified. 

Example: 

TABLE II, T2,T3 (10,20,5) $ 

FIELD INTEGER (16) TF1 = 1000 (-1) $ 

FIELD 'BOOLEAN TF2$ 

FIELD STATUS ('DOWN*, ‘READY 1 , ‘AIR30RNE’) AIRCRAFTS 
SUBTABLE ST1 (500 , 1 , 1 , 1 ) $ *• 

ITEM-AREA ITM1$ 

END_TABLE$ 

4. Control Structures 
a. VARY Statement 
Syntax: 

<V ARY STATEMENTS : =VARY <REAL VARIABLE> FROM <R E A L ERIMARY> 

THRU <REAL PRIMARY> DO <STATEMENT>$ 
|VARY <RE AL V ARI ABL E> FROM <R E A I PRIMAR Y> 
STEP <REAL PRIMAR Y> THRU < E E AL PRIM ARY> 
DO <ST ATEM ENT>$ 
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Semantics: 

The VARY statement allows multiple loop indicies on 
the same level and multiple nesting of loops, with the upper 
limit on the number of indicies a function of target 
machine characteristics. Indicies must be declared in data 
declarations and retain their last value when a VARY loop 
is exited. The initial, step and test values are evaluated 
only once when the loop is entered but the loop index variable 
may be changed during execution. 

The statement or statement block within a VARY loop 
must be-executed once and the index may either be incremented 
or decremented until it reaches the test value. fe'hen all 
indicies qu the same level have reached their test values 
the loop will be exited. A partial pass may be made through 
a loop by a RESUME statement. This is accomplished by a 
transfer of control to the increment and test step at the 
end of the loop. 

The initial, step, and test value data elements must 
appear in the order listed, but the step value may be omitted 
in which case an implied increment of one is assumed. The 
Real data type for index variables and loop control values 
is always integer, therefore, fixed-point or f lcating-pcint 
values are not allowed. 

Example: 

VARY A FROM B STEP -1 THRU C DC 

BEGIN 

SET: D TO E+1 $ 

VARY D FROM I THRU H, E FROM L THRU 2C DO 
BEGIN 

SET :G TO E-10 $ 

SET: M TO E+9 $ 

ENDS 

ENDS 
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b. CASE Statement 



Syntax : 

<CASE STATEflENT>:: = CASE:<BEAL DATA UNIT> OF <STATEM£NT>$ 

ELSE <STATEI'JENT>i 

| CAS E : <R E AL DATA UNIT> OF £ £<BEAI CO NST A NT> 
<STATEEENT>$Z ) ELSE <STATEHENT>$ 

1 CASE : <STAI US DATA UNIT> OF i£<STATUS 
CONSTAKT>:}<STATEMENT>$^ ELSE 
< STATE ME NT>$ 

Semantics: 

The CASE statement allows selection of a statement 
within a list of statements for processing depending upon 
the value of a data unit. This can be accomplished in twc 
ways. The index case allows declaration of a list of n 
statements with an implied numbering cf 0 to n- 1 . If the 
value of the data unit is from 0 to n-1 then the appropriate 
statement is executed, or the ELSE sase statement is executed. 
The label case method reguires that each label le checked for 
a match with the data unit. If a match is found then the 
appropriate statement is executed, or the ELSE case statement 
is executed. 

Example : 

(1) . Index Case 

CASE: D OF 
CALL PROC 1 $ 

CALI PR0C2 $ 

ELSE CALL PR0C3S 

(2) . label Case 

CASE: A OF 

2:3: SET: E TO C$ 

5 :7 :IF A= E TEEN GOTO D$ 

ELSE SET CASE 1 TO FALSER 
c. While Statement 
Syntax : 

<WHILE STATE IiENT>::= WHILE < ECCLEA N EXPEESSION> EC <STAT EMENT>S 
Semantics: 

The WHILE statement allows a statement cr statement 
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fclock tc be executed in a loop until the value of the Boolean 
expression is FALSE. The Boolean expression is evaluated 
each time the loop is executed and if it is initially FALSE 
the loop will not be executed. The Boolean expression must 
be made FALSE during loop execution or the loop will execute 
infinitely. 

Example : 

WHILE A<5 DO 
BEGIN 

SET : B TO C+1$ 

SET : A TO A+ 1 $ 

END$ 

d. IF Statement 
Syntax : 

<IF STATEMENT^.: =IF <BOCLEAN EXPRESSION THEN <S1 AT EMENT>$ 

| IF <EGCLEAN EXPRESSIONS THEN <SIMPLE 
STATEMENT>$ ELSE <STAT £ ME NT> $ 

|Ct p / DriOT un tv nn T7C c t n m > thph"? 

X \jjOOii inn iAi a i. O x w li y* X x i n ^ xai iinr/ it i / 4> 

J^F <BOOLEAN EXPRESSICN> THEN^ <SIMPLE 

STATEMENT>$ ^ELSE <SIMPLE STATEMENT>J 
ELSE <STAT EMEN T > $ 

Semantics: 

The IF statement allows nesting of IF THEN ELSE 
statements with no imposed limit. Only simple (not CASE, 
VARY, WHILE, RESERVE, or IF) statements are allowed within 
the nesting structure. Easic and simple statements, however, 
may he used for the last statement after the last ELSE. 

The ELSE statement is always matched with the nearest IF 
THEN phrase, thus eliminating the dangling ELSE problem. 
Examples : 

IF A=E THEN GOTO LABEL1S 

IF A=B THEN IF C=D THEN SET: A 10 D$ 

IF A=B THEN IF C=D THEN SET: A TC D ELSE SET;B TO C$ 

e. RESERVE and WAIT Statements 
Syntax: 

<RES£R V E STATEMENTS : =RESER VE^ £<RES0U RCE>^ J <S I M E I E 

STATEMENTS 
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<RESOURCE>: : =<PROCEDUEB SIATEMENT> 

| : <EAT A UNIT> 

|<DAIA STRUCTOBE> 

<DA 1 A STRUCTURED : = <1 ABLE IDENTIPIER> ( f<REAL PRIMARY^) 

| <FI IE NAME> (<REAL PEI KARY>) 

<TAEIE IDENTIEIER>: :=<TAELE N AM E> 

|<SUE-TABLE NAME> 

| <ITEM-AREA NAME> 

<WAI1 S1ATEMEKT>:: = WAIT (^PROCEDURE NAME>^)$ 

Semantics: 

The RESERVE statement may he used to inform the 
monitor system of an impending entry into a critical section. 
The procedure statements, data units cr data structures 
thus identified will not then be change-accessatle by any 
other processes running in the same multi-programming or 
multi-processing environment. Upon leaving the RESERVE 
block, the resources will be freed for change- access by 
ether processes. The WAIT statement has been added to allow 
synchronization of processes, that is, to specify that the 
controlling procedure is to suspend execution until one or 
more procedures have completed their execution. 
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Example: 
COBEGIN 
— i BEGIN 



Si 



s Z. 



S3 



RESERVE (R 1) 

BEGIN 

END$ 

END$ 

BEGIN 

RESERVE (R 1 ) 

BEGIN 

ENDS 

END$ 

BEGIN 

END$ 

COBEGIN 
— t BEGIN 

WAIT (S2, S3, S6) $ 



sv 



-Sir 



so 



END$ 

EEGIN 

WAIT (SI) $ 

END $ 

EEGIN 

KAI I (SI) $ 



END $ 
CCENDS 
COEND $ 




S3 
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f. SET Statement 
Syntax: 

<SE1 STATEMENT>::=SET: <DATA UNIT> TO <EXPRE SS10N>I 
<DA 1 A UNIT>: : =<REAL DATA UNIT> 

J<BITS DATA UNIT> 

| <EGGL EAN DATA UNIT> 

| CCHARACTER DATA UNIT> 
j <STATUS DATA UNIT> 

| <TA£>LE IDENIIFIES> 

KTALLL IbLNTlI 1LK> ( <KLAL PRIMARY > ) 

<RE A I DATA UNIT: ::-<F?EAI V AFT AEL E> 

} <EEAL FIELD N AME> CTAELE IDEN1IFIEE> 

{ <RE AL PRIMARY> ) 

<REAL VARIABLE>: : =<INTEGER VARI ABLE> 

| <FIX ED- POINT VARIA5LE> 

\ <FLOATING-POINT V AR IABLE> 

<BI IS DATA UNIT>: : =<3ITS VA EIABLE > 

|<BITS FIELD N AM E> <TABLE IDENTIFIED 
( <RE AL PHIMARY> ) 

<£OOL£ AN DATA UNIT>: : =<BCOIEAN V ARIA3LE> 

| < ECOLFA N FIELD N AM F> <TAEIF IEENTI FI ER> 
( <RE AL PRIM ARY> ) 

<STA1US DATA UNIT>::=< STATUS VARI ABLE > 

| <ST ATUS FIELD N AM E> <TABLE IEENTIFIER> 

( <REAL PRI M AEY> ) 

<CH AEACIER DATA UNIT> : : =<CHARACTER VAR1ABLE> 

| <CHARACTER FIELD NAHE> <T ABLE 

IDENTIFIER> ( <RE AL E R IM ARY > ) 
<EXERESSICN> : :=<BEAL EXPRESSION> 

| <BITS EXPRESSION> 

|<CHARACTER EXPRESSICN> 
j <ST ATUS EXPRESSION^ 

| <BOOLEAN EXPRESSION> 
j <TABLE IDENT IFIER> 

Semantics: 

The SET statement allows the assignment cf evaluated 
expressions to a compatible data unit cr Table structure. 
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All assignments must be type compatible and receptacle data 
unit lengths will determine whether the results are truncated 
at the least significant digits or right justified and 
filled in with zeroes. For Character assignments, the 
character symbols on the right of an expression will be trun- 
cated if the receptacle is smaller than the expression, 
otherwise, the result will be left justified and the remain- 
ing positions unchanged. 

The Status assignment will transfer to the Status 
variable the integer value of the Status constant on the 
r ig h t . 

Bits expression assignments fellow these rules: 

(1) . If the length of the expression is greater 
than the data unit, then the result is right- j ustified in the 
data unit and truncated at the excess bits on the left. 

(2) . If the length of the expression is less 
than the data unit, then the result is right justified in 
the data unit and the unused bits are set to zero. 

A multi-word Table- to-Table, Item-to-Item or 
single Item- to-Table assignment results in the trans- 
fer of all values from one element tc another. Table-tc- 
Table assignment implies that every word of one Table will 
be transferred to every corresponding word of another Table. 
Dimension compatibility is the responsibility of the pro- 
grammer. The total number of words in each, however, must 
be the same. Item-to-lt ern assignments will also result in 
the transfer ox all words in one Item tc another Item. 
Assignment length compatibility is the responsibility of 
the programmer and excess words will be truncated. ltem-to- 
Table assignment implies that every Table Item is replaced 
by the Item value. 

Examples : 

SET : A TO E$ 

SET: A,, B ,C TO D $ 

SET: WEATHER TO 'HOT’S 

SET WEATHER, TEMPERATURE TO 'HOT'S 

SET: A TO (B+C) *D$ 
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SET: (A) ..5 TO C$ 

SET: A TO (C)..2$ 

SET: A TO C REM D$ 

SET : A TO E ANDL C$ 

SET: A TO F ALSE $ 

S £T: C TO "CHARACTER STRING 11"$ 

SET: A (1/ 1) to B (1,2) $ 

SET: TABLE 1 TO TA5IE2I 
SET :T AE1E2 TO ITEM1$ 

g. SNAP Statement 
Syntax : 

<SWAP STATE MENT>: :=SWAP:<EATA UNII> FCR :<DATA UKIT>$ 

Semantics: 

The SWAP statement exchanges the values cf two data 
units. Replacement rules are the same as those for the 
SET statement. 

Example: 

SWAP: C (1 ,2) FOR : D (2 , 1 ) $ 

h. SEARCH Statement 
Syntax: 

<S EARCB STATEMENTS: :=SEARCH: <DATA STRUCTURE> FCR: <EAT A UNIT>$ 
Semantics: 

The SEARCH statement provides the capalility to search 
a Table cr File fox an entry with same value as a data unit. 

If found, the index variables in the data structure's dimen- 
sion list will be set at rur-time to point to the value's 
location, otherwise they will be set tc minus one. Both 
structures will be searched sequentially starting with the 
first dimension ana varying it and adjacent dimensions up- 
ward from right to left to their maximum limit until the 
value is found cr net found. 

Example : 

SEARCH: TABLET (D1,B2) FOR: B ( 1, 1 , 1) $ 

i . INPUT Statement 
Syntax : 
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CINPUT STATEMENTS :=INPUT <FILE N AM E> INIO;<DATA CNIT>$ 

IINPUT <FILE N AM E> <FORMAT NAME> 

I NTO : <DAT A U N I T > $ 

<FILE NAMES : = REAI) 

i 

| OCM 

j <USER FILE NAME> 

Semantics: 

The INPUT statement causes a mcnitcr routine to input 
data elements from a specified device or user declared file 
into a data unit or units. When the data unit is a whole 
Table the input fills the Table sequentially, word by word. 

If a format name is not referenced, the input character 
string is converted to the type ana length of the receptacle. 
The user file name feature was not implemented in this 
version of CMS-2RS, but will allow data to be moved to and 
from internal and external devices. 

Examples: 

INPUT READ INTO: A ,C$ 

INPUT USER1 F0RM1 I NTO: T A BL E 1 $ 
j. OUTPUT Statement 



Syntax: 



<C U TP UT STATEMENTS :=0UTPUT 


<FILE 


NAME> 


< F 0 R M 


AT NAME>$ 


| OUTPUT 


<FILE 


NAM E> 


CUTOF 


: < D A T A U NIT >$ 


| OUTPUT 


<FILS 


NAME> 


<F0RM 


AT K AME> OUTOF 



<DATA U N IT> $ 

<FI IE NAME> : : = PRINT 
. | PNCH 
| OCM 

ICUSER FILE NAME> 

Semantics: 

The OUTPUT statement causes a monitor routine to out- 
put data or a character string to a specified device or user- 
declared file from a data unit or units. When the data unit 
is a whole Table the OUTPUT statement empties the Table Iteais 
sequentially , word by word. If a format name is not refer- 
enced, the output character string is truncated at 22 positions 
per data unit. 
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k. 



Examples: 

CUTEUT PRINT "THIS IS AN OUTPUT STRING"$ 
OUTPUT OCM OUT Of : A, B, C$ ■ 

OUTPUT USER 2 FORM2 OUTOF: TABLE4$ 

ENCODE and DECODE Statements 
Syntax: 



<ENCCDE STATEMENTS :=ENCCDE : CCHAR A CTER DATA UNIT> <FORM AT 

NAME> OUTOF: <EATA UNITS3 

< DECODE STATEMENT>: : =D ECCDE : <CH ARACTER DATA UNIT> <FORM AT 

NAME> INTO : < D AT A UNITS$ 



Seman tics: 



The ENCODE statement specifies that the source data 
unit(s) are to be converted to character strings and packed 
sequentially into the receptacle according to a specified 
format. The DECODE statement is the reverse of the ENCODE 
statement. 

Examples : 

rwrnmi* ruit) jri p tt rr> tt- . * -p re 

DECODE: C HA RAC 1 INTO:A,B,C$ 

1. PACK and UNPCK Statements 
Syntax: 

<P AC K STATEMSNT>:: = PACK:<DATA UNIT> 0 UTOF: <DATA UNIT>$ 
<UNPCK STATEMENTS: : =U NPCK : <DATA UNITS INTO : <DA T A UNITS$ 



Semantics: 

The PACK statement transfers 
source list of data units into a rece 
are stored consecutively from left-to 
spacing. The receptacle and source d 
iable to field. Field to variable, va 
Field tc Field, Table tc Table, Table 
variable to Table, Field to Table, Ta 
Item to Item, Table to Item, Item to 
and Eield to Item. Assignment length 
responsibility of the programmer and 
be truncated. 



a bit string from a 
ptacle data unit. The] 
-right and without 
ata units ma}’ be var- 
riahle tc variable, 
tc variable, 
ble to Field, 

Table, Item to Field 
compatibility is the 
excess words will 
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Examples: 

PACK : TAELE 1 OUTOE :T AELE2$ 

PACK:A OUTOE*: B ,C ,D$ 
m. Procedure Statement 
Syntax: 

<PECC£P UEE STATEMENTS : : = CALL <PROCEEURE NAME> 

CINPUT PAR AKETERS> 

CCUTPUT PARAMETERS > 

CLABEL PARAM£TERS >) $ 

1 CALL PROCEDURE NAME> 

<INf UT PARAMETERS>: := ( , 

| <EXPRESSION > ) 

COUIPUT PARAMETERS>4 :=| | , 

| 1 <DAT A UN IT> 

<LA3EL PARAHE1ERS>: :=| | <1ABER NAME> 

Semantics: 

The procedure CALL statement transfers control to 
a named procedure and maps any actual parameters to the 
corresponding formal parameters. 

All procedure input and output parameters must have 
been previously declared. Parameters are normally mapped by 
passing values, thus resulting in a call by value. If the 
same data element is used for output in both actual and 
formal parameters-, then the effect is call by result. If 
an actual parameter is omitted, or if the same data element 
is specified as both the actual and formal parameter then 
a call by address occurs. If call by address is desired 
and the data elements are not the same, then the CGRAD 
operator must be used to pass the address of variables or 
subscripted variables. For Tables, the indirect declaration 
allows the Table address to be passed tc the called procedure. 
Ey mixing any of the above conventions, calls by value- 
result cr address-result may occur. 

Examples: 

(1) . Value 

TABLE T 1 , T 2$ 

CALL A (T2| ) $ 
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PROCEDURE A (T 1 | )$ 

(2) . RESULT 

TAELE T1,T2$- 
CALL A ( 1 T2) $ 

PROCEDURE A ( |T1)$ 

(3) . Value-result 

VRBL A , B / C $ 

CALL L (A| A) $ 

PROCEDURE D (B| B) $ 

(4) . Address (Tables) 

TABLE T2 , T 3$ 

INDIRECT TABLE 11$ 

CALL A ( T 2 | T 3 ) $ 

PROCEDURE A (T2 | 13) $ 

CALL A (12 t )$ 

CALL A (T3 | ) $ 

PROCEDURE A (T 1 1 )$ 

(5) . Address-r esult 

TABLE T 1 r T 2$ 

CALL A (T1| T2) $ 

PROCEDURE A (T 1 1 1 1 ) $ 

(6) . Address (variables) 

VREL k,B,C$ 

CALL D (COEAD (A) | ) $ 

CALL D (COEAD (E) | ) $ 

PROCEDURE D (C | )$ 

n. GOTO Statement 
Syntax: 

<GCTC S1AIEMEN1> : :=GOTO <LABEL NAM E>$ 

Semantics: 

The GOTO statement transfers control tc 
statement or statement block. 

Examples : 

GOTO LABEL 1$ 

IF A=B THEN GOTO LABEI2$ 



labeled 
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. BETURNTO Statement 
Syntax: 

<RE 1 URN 30 STATEMENTS : -RE1LRNT0 CIABEX NAHE>$ 

Semantics: 

The RETURNTO statement transfers' control tack to 
one cf the abnormal exit label parameters in a procedure 
call . 

Example: 

RE TUSH TO EXITL3L 1 $ 
o. RESUME Statement 
Syntax: 

<RESUME STATEMENTS :=RESUME CLABEL NAME>$ 

Semantics: 

The RESUME statement specifies a transfer to the 
increment and test step within a VARY block. 

Example: 

IF A=E THEN RESUME VARY1$ 

P« RETURN Statement 
Syntax : 

<RE'I URN STATE MEN T>: :=REIURN 

| RETURN :<UAIA UNIT> 

Semantics: 

The RETURN statement transfers control from within 
a sub-routine to the point of call. The RETURN statement 
may be emitted if it is the last statement in a procedure. 

To return from a Function, the RETURN data unit statement 
must be used. 

Example: 

RETURN! 

IF A= E THEN RETURNS 
IF A <E THEN RETU RN : AS 
r. STOP Statement , 

Synta x : 

<STOP STATEMENTS : =STOP 
Semantics: 

The S10P statement temporarily suspends program exe- 
cution until an operator manually restarts the computer. 
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Example; 

IF INTERRUPT (1) THEN STOPS 
5. Expressions 

a. Real Expressions 
Syntax: 

<REA1 EXPRESS ION>: :=<REA1 P BINARY > 

| <R EAI EXPRESSION> <RE AL OP£EATCB> 



<RE AL PRIM ARY> 

Symbol: Definition: Priority: 

<REAI OPERATOR>: ;=+ addition 4 

|- subtraction 4 

1* multiplication 3 

j/ division 3 

jREK remainder 3 

| ** exponentiation 2 

| ABS absolute value 1 

| - unary minus 1 

<REA1 EEIMARY>: ; =<R EAL DATA UNIT> 

| <REAL CONST ANT> 

| (<REAL EXPRESSION>) 

j <REAL FUNCTION N AM E> <INPUT PAR A MEIERS >) 



| (<REAL EXPRESSION^ , .<REAL CONST ANT> 

| NUMBER (<EITS PRIMARY >) 

1 CHARCODE (<CHARACIER PRIHARY>) 
j COUNT (<EATA UNIT>) 

1 CORAD (<CATA UNIT>) 

Semantics: 

The Real expression allows mixed mode arithmetic 
with integer, fixed-point and floating-point operands. 
Evaluation is from lef t- to-right in the order of the 
priorities listed above. The REM operator provides the 
remainder after integer, fixed-point or f loatin c- p cint di- 
vision of two operands. 

Examples : 

SET: A TO B REM NUMBER (C) $ 

SET: D TO -B**C**E*CORAD (F)$ 
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b. Eits Expressions 
Syntax: 



<BI1S EXPRESSIONS :=<BITS P BINARY > 

KBITS EXPRESSION> <ICGICAL CEEB ATOR> 
<EITS PBIKARY> 

| <BI 1 S EXPRESSIONS <SHIPT OEEBATCR> 
<RE AL PBIMABY> 



Symbcl: Definition: 



Priority: 



CLOGICAI OPERATORS ;=N01I logical not t 

jANDL logical and 3 

| OEL logical or 3 

<SHIET CFEBATCR>: :=SHLL shift left logical 2 

|SHRL shift right logical 2 

ICIRSHLL circular SHLL 2 

1 CIBSHRL circular SHRL 2 

<BITS ERIMARYS :=<BITS CONST ANT> 

|<BITS DATA UNIT> 

| (<BITS EXPRESSION>) 



|<BITS P UNCTION N AME> <INPUT PAR A.EETERS>) 
|BITSTEING<INPUT PARAMETERS>) 



Semantics: 

The Bits expressions allow logical operations on 
binary operands cf equal cr unequal length. The shift 
operators allow shirting of a Bits operand an integral 
amount either end-off or within the operand. All end-off 
shifts result in vacated bit positions being assigned the 
value cf zero (0). The BITSTBI NG function has parameters: 
(real primary, real primary, data unit). The first param- 
eter is the starting bit position in the third parameter. 
The seccnd parameter is the number of bits to be extracted 
from the third parameter. The result is a substring of 
bits frcm the data unit. 

Examples : 

SET : A TO B ANDL C SHIL 3$ 

SET : D TO BITSTRING (4, 10, E) $ 
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c. Character Expressions 
Syntax: 

<CH AB ACTER EXPBESSION> : :=<CHARACT ER P RIMAEY> 

1 CCHABACTER EXEBESSION> CAT 
<CHABACT EE PBIMA BY > 

<CH ABACTEB PBIM ARY> : :=<CHAEACTER CONSTANT> 

| <CHAR ACTER DATA UNIT> 

| (<CHARACTER EXPRESSIONS 
| <CH ARACTER FUNCTION N AM EXI NP UT 
FAR AMETE BS> ) 

| CODECHAR (<REAL PRIMAR Y>) 

| SUBCHAR<INPUT FAB A METERS >) 

Semantics: 

Ine Character expression allows concatenation of 
successive character strings. The SUBCHAR function has 
paramters: (real primary, real primary, character primary). 

The first parameter is the starting character position in 
the third parameter. The second parameter is the number ox 
characters to be extracted from the third patameter. The 
result is a substring of character symbols from the character 
primary - 

e. Eoolean Expression 
Syntax: 

<EOCI EA N EXPRESSIONS : = <ECOLEAN PRIM ARY> 

| <EOCLEAN EXPRESSION> <ECOIEAN 

OPERATOR> <ECOLEA N If IMARY> 
Symbol: Definition: Priority: 

<EOOIEA N CPER ATOE>: : = NOT complementation 2 

|AND conjunction 3 

(OR disjunction 3 

< BOOLEAN PRIM AR Y>: :=<B001EAN CONSTANT> 

| < BOOL E AN DATA UNIT> . 

| ( < EOOLEAN EXPRESSIONS 
| <BOOLEA N FUNCTION NAMEXINPUT 
P AR AM ET ERS>) 

| <RELA1I CNAL EXPRESSICN> 



107 



<RE IATI CNAI EXPRESSIONS : = <REAL P R IM A R Y > <RELATICNAL OPERATOR 

<REAI PRIKARY> 

| <EI IS PRIMAB Y> <RELATIC NA1 

OPERATOR> <EITS PEIMARY> 

| <CHAR ACTER PEIMARY> <BII ATION AL 

OPERATOR> CCHARACTER PRIAMRY> 

| <S1ATUS EXPRESSION> <RE IATION AL 

OPERATO R> <STATUS EXPRESSION> 





Symbol: 


Def i ri tion : 


Priority : 


<RE 1 ATI C NA1 


OEERATOR>: : = < 


less than 


1 




l> 


greater than 


1 




1 = 


equal 


1 




l-= 


not egual 


1 




l<= 


less than or 


egual 1 




l>= 


greater than 


cr egual 1 


Semantics: 






The 


Boolean expressions 


allow logical 


comparison cf 


two cr mere 


operands for TRUE of 


FALSE conditions using 



Boolean operators. The relational expressions allow 
comparison of Real, Bits, Character or Status expressions. 
Example : 

IE A = B A HD C=D THEN SET: A TO D$ 
d. Status Expressions 
Syntax: 

<STAIUS EXPRESSIONS :=<STATUS CO NSTAN T> 

| <STATUS DATA UNII> 

| <STAT LS FUNCTION NAMEXINiUT EAR AMET ERS >) 

Semantics: 

The Status expression allows the use of Status con- 
stants, data units and functions in dynamic statements. 

Example: 



SET : W EATHER TO 'HOT ' $ 
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APPENDIX D 



DESCRIPTORS' PROTOCOL 

Due tc the variety of conditions that need be described, 
it becomes necessary to recognize several descriptor 
formats. These formats are detailed here to facilitate 
future work in completing this compiler. Unless otherwise 
specified, the headex byte in every descriptor gives the 
number cf bytes that follow. Eields are described 
sequentially as they appear in the descriptor. 

1. Parairete rle ss Pro cedur e 

A descriptor for a par ameter less procedure consist of 
the header byte followed by a four-byte fi^ld to store the 
entry point address of the procedure. 

2 • Pr ocedure Kit h Para meters 

A descriptor for a procedure with parameters consist of 
the header byte, a four-byte field to store the entry point 
address cf the procedure, one byte to indicate the type and 
number cf parameters, and a number of two-tyte fields, one 
for each parameter, to store pointers to the parameters' 
entries in the ideptifier directory. 

The twc high order bits of the type-number byte indicate 
the . type o£ parameters that follow according tc the 
following cede: 00 for input parameters, 01 for output 
parameters, and 10 for label parameters. The six lew order 
bits remaining indicate number of parameters (64 maximum) . 

The type-number byte together with the pointer fields 
fern a greup. Up to three such groups can appear in the 
descriptor, one for each of the three types of parameters, 
INECT, OUTPUT , and LABEL. 
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3. Function Name 



A function name descriptor consist of the header fcyte 
and a fcur-fyte field to stcre the entry pcint address of 
the procedure. The remainder of the descriptor varies in 
format among the five possible types of functions as 
f cllcws: 

a. Numeric Function 

The entry point field is followed by a twc-byte 
field for data type description. The two high order bits of 
the first byte indicate the type as follows: 

OC for integer 
01 for fixed 
10 for float. 

The next 14 bits of the field are used tc store 
value of the data size parameter in data type declarations. 
In the case cf type FIXED where two such parameters are 
used, the seven high order fits are used for t be first 
parameter and the seven low order bits for the second. 

The data type field is followed by a one-byte field 
to indicate the number of formal parameters, and a number of 
two-byte fields, one per formal parameter, to store pointers 
to the parameters' entries in the identifier directory, 

b. Eits Function 

Bits function descriptors are the same as numeric 
function descriptors except that all 16 bits of the data 
type field are used to store the value of the data size 
parameter. 



C. Character Function 

Character function descriptors are 
functior descriptors. 

d. Status Function 

The entry point field is followed 
field tc indicate the present value of the 
i.e., the number of the status constant 



the same as bits 



by a cne-tyte 
status function, 
assigned. This 
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field is followed by a number of two-byte fields, cue per 
status constant, to store pointers to status constants in 
the identifier directory. A one-byte field to indicate the 
number of formal parameters and a number of two-byte fields 
for pointers to such parameters follow. At declaration 
time, the compiler associates an integer with each status 
constant in ascending order beginning with 1. This number 
is stored in the descriptor pointer field Of the status 
constant's entry in the identifier directory. When a status 
variable is set to a status constant, the number assigned to 
that constant by the compiler is entered in the present 
value byte of the descriptor, 
e. Boolean Function 

Ecolean function name descriptors need no data type 
field. Other than that, the descriptors are the same as 
those described above. 



4 . Ta gs 

Tags do net need descriptors. Instead, the descriptor 
pointer field in the identifier directory has the pointer to 
the numeric value of the tag in the constant table. 

5 • Variab le s 

Numeric, bits, and character variables have the same 
descriptor format. It consists of the header byte, two 
bytes for the data type field as described before, and a 
twe-byte field for a pointer to the value in the constant 
table. This last field will have an unpredictable value 
unless the yariable has been init iallized. 

Status variables have the following descriptor format: 
header byte, one byte to indicate present value cf the 
status variable, i.e., the number of the status constant 
assigned, and a number of two-byte fields, one per each 
status constant, to store pointers to status constants in 
the identifier directory (see status function above). 
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Boolean variables, like boolean functions, do not need 
descriptors. The descriptor pointer field is used to store 
the value of the variable; 1 for TRUE and 0 for FALSE. 



6 . Form at Decla ration D esc rip tor 

Format declaration descriptors consist of the header 
byte, cne byte for the carriage control field, and a 
sequence of format descriptor fields. There are five 
different types of format descriptor fields. The high crder 
three nits of each field are used as a key to .indicate the 
type of field as follows: 

001 for numeric conversion format field 

010 for character constant field 

011 fcr slash list field 

100 for repetition grcup head field 

101 for repetition group tail field, 
a. Numeric Conversion Fermat Field 

This field is four bytes long. The first byte has 
the fielc key and the ty-pe conversion letter. This letter 
is represented by thfe low order five bits in the byte 
according to the following code: 

OfOOl for I 
0C130 for F 
00101 for E 
10J |0 for 0 
01000 for H 
00001 for A 
10011 for L 
QC111 for X 
00011 for T 

The second byte has the value cf the repetition 
factor "d" in the numeric conversion group (nlw.d). It can 
have any value between 1 and 255. The third byte has the 
value of the "w" parameter, and the fourth byte that cf the 
"d" parameter. The "d" parameter can be zero. 
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b. Character Constant Field 

The character constant field has three bytes. The 
first byte has the key field. The second and third bytes 
have a pointer to the character constant in the constant 

table. 

c. Slash List Field 

The slash list field has one byte. The three high 
order tits have the field key. The five lew order bits give 
the number of slashes in the. list. 

d. Repetition Group Head Field 

The repetition group head field has two bytes. The 
three high erder bits have the field key. The remainder 
thirteen tits have the value of the group repetition factor 
m. 

e. Repetition Group Tail Field 

The repetition group tail field has one byte with 
the field key. All the descriptor fields bracketed by the 
repetition group head and tail fields will be repeated “m” 
times when implementing the format. 

7 . Tables 

A table descriptor consist cf the header byte, one byte 
fer the number of dimensions field, a number of twe-byte 
fields, one for each dimension, to store the value of the 
dimensions, and a two-byte field to store the pointer to the 
field pointer list in the constant table. The high order 
first 'bit cf the number of dimensions field is used to 
indicate if the table is INDIRECT or not. This bit is set 
to "1" for INDIRECT TAELE declarations; it is reset to "0" 
Otherwise. The remaining seven bits are used to store the 
number cf dimensions (128 maximum). The field pointer list 
is a pseudo-descriptor consisting of a headc-r byte and a 
number cf two-byte fields, cne per each field declared in 
the table declaration block, with pointers to the field name 
entries in the identifier directory. 
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8. fields 

Numeric, bitp, and character freld names have the same 
format. It consists of the header byte, twc bytes for the 
data type field, and a two-byte field for the pointer to the 
value in the constant table. If the field is initiallized 
at declaration time to a list of values, the following 
additional fields are part of the descriptor: a two-byte 
field to store the number of values in the initialisation 
list, and a two-byte field to store the list repetition 
factor m. The last two bytes of every field descriptor have 
a pointer to the parent table descriptor in the constant 
table. 

Status field names have the same descriptor format as 
that described above except for the data type field. This 
field was previously described (see status function) . 

Boolean field names have the same descriptor format as 
those already described except for the absence of a data 
type field. 

9. Itemy ar e as 

Item-areas do not need descriptors. The descriptor 
pointer field in the identifier directory has a pointer to 
the parent table descriptor which, in turn, has a pointer to 
the fiejld pointer list. 

10. Su btables 

A suitable descriptor consists of the header byte, a 
number of two-byte fields, one per dimension, to stcre their 
values, and a two-byte field for a pointer to the parent 
table descriptor. 
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■ APPENDIX E 



OPERATION CODES FOR II 



Op eratio n Cod e 



Meaning 



ADD 
ADC 
SUE 
SBC 
MUL 
MIC 
DIV 
D VC 
REM 
ISI 
EXP 
ABS 
SCI 
CM 
NEG 
MCD 
TST 
BIS 
EIQ 
BE£ 
EN£ 
EGQ 
BGR 
ERE 
BET 
ERU 
NCE 
SIP 
ID V 
IDA 
ST V 
STA 



add operand 

add constant in operand field 
subtract operand 

subtract constant in operand field 
multiply times operand 

multiply times constant in operand field 
divide by operand 

divide by constant in operand field 

remainder 

compare 

exponentiation 
absolute value 
stale 

count ones 

unary minus 

mod ulo 

compare 

branch on < 

branch on <= 

branch on = 

branch on -<= 

brach on >= 

branch on > 

branch on false 

branch on true 

unconditional branch 

no operation 

stop 

load value of operand 
load address of operand 
store value of operand 
store address of operand 
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AN I 


logical and 




ICE 


inclusive logical or 




XOE 


exclusive logical or 




NCI 


logical complement 




INX 


subscript computation 




XCH 


exchange operands 




CAT 


string concatenation 




INE 


input from reader into 


oper and 


IE f 


input from reader into 


operand 


OTi 


output to printer operand 


OPF 


output to printer operand with 


DEP 


define label location 




LNE 


source line number 




ESP 


enter sysproc 




LSP 


leave sysproc 




ESE 


enter sysprocreen 




LSR 


leave sysprocreen 




EPE 


enter procedure 




LPE 


leave procedure 




EFN 


enter- function 




if N 


leave function 




PEC 


procedure call 




FNC 


function call 




INC 


increment 




EVL 


enter vary loop 




LVI 


leave vary loop 




EWL 


enter while loop 




IHI 


leave while loop 




ECG 


enter case group 




iCG 


leave case group 




DCL 


define case label 




EE3 


enter reserved block 




LEE 


leave reserved block 




EBE 


enter begin block 




LEE 


leave begin block 




ECB 


enter cobegin block 





with format 
forma t 
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ICE 


leave cobegin block 




BVL 


resume vary loop 




BIX 


retyrn to label 




PCK 


pack into data unit 




ONE 


unpack inta data unit 




ENC 


encode into data unit 




DEC 


decode into data -unit 




SRC 


search for data uhit 




SHI 


shift left amount specified in 


operand 


SHE 


shift right amount specified in 


operand 


CSX 


circular shift left 




csa 


circular shift right 




INC 


input from operator controlled 


medium 


IOf 


input from OCM with format 




OTN 


output to punch 




ONE 


output to punch with format 




01 c 


output to OCM 




OOF 


output to OCM with format 




IKU 


input from user file 




OTU 


output to user file 




BTI 


convert binary to integer 




ITE 


convert integer to binary 




IIC 


convert integer to character 




CTI 


convert character to integer 




IT X 


convert integer to fixed 




XTI 


convert fixed tc integer 




III 


convert integer to float 
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convert float tc integer 




XTI 


convert fixed to float 




LTX 


convert float to fixed 




C1D 


convert octal to decimal 




DTO 


convert decimal to octal 




XX B 


convert fixed to binary 




ETX 


convert binary to fixed 




LIE 


convert float to binary 




ETL 


convert binary tc float 
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LEf 


length 


in 


binary digits 


L BY 


length 


in 


bytes 


LWE 


length 


in 


words 
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PROCEDURE CHECKIDIR4); COMMENT RI HAS POINTER TC IDEM IN ICENT 

DIRECTORY. CRECKID CHECKS THAT IDENT IS ONE OF 
9 LEGAL LETTER PARAMETERS { I , F t E , 0 , H , A , L , > , T ) 
AND RETURNS -CCRkESPCNCI KG CODE IN RI. IF ILLEC-A 
L, THEN RI IS -1, ELSE RI HAS THE LETTER; 
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GLC E AL PROCEDURE SCANNER ( R3 ) ; COMMENT SCANNER HAS 27 CASES AS DETAILED 



LJ 

.2 

LU 



X 













* n 






• •» 
















h“ 






•*'h“ 








LJ 








2d 






h-HH 








2 








<•* 






zx 








<1 






• *> 


h-h- 




• #» 


<T UU 














Q 






CD 


H- 








—4 






X 


zx 




2: 


000 








a: 






u 


OU 


z 


U 


21K 








ll 








O 


u 




0 


u 




• ► 


• • 






• •* 


0 


X 


• r» 


00 


X 




— H 


*— \ 






00 


l — l — 


1 — 


00 


CD 


h- 




W 


UL 






0 0 


21 




CO 


1— 






CD 








< 


*—*0 


0 


<1 


-CO 


0 




U 


• ► 




• »> 


u 


0 ^ 


x 


0 


*—*2. 


a. 




x 






00 


0 ,c * 


X 


ll 


0 


CJ<1 


ll 




u 


a: 




h- 


ll 1— 


0 


A 


II 


X 


A 




> 


< 




2 : 


••X 


2d 5d 




• « 


U 


x+- 




< 


X 




< 


(XJ^-H 




• "•ad 


OvJ 


CD — J 


*^ad 




00 


r 




j-iw 


ad O 


u 


ro 


ad 


2dC Q 


co 




•* 


« r- •* 




00 


au 


<tuj 


adx •• 




*-* < 


adx •* 




LH 


^ f>4 




z 


* n 


00 


ll *—* CD 


• r* 


t— h- 


II *-"• G 




Od 


x a : 




G 


ado 


JO) 


•• 2 


Qd 


< 


•• 2: 




•» 


z: 




0 


<i<L 


LL <L 


x . *>lu 


<L 


oz 


X • Lu 




O 


<t 0 






XX 


H- 


LU |— « «* 


X 




UJ|- 




X 


u 




u 


O— • 


h- 


|— hh • »> i-4 


O 


X 








cu 




< 


1-0 


22 


ZZod H- 


h- 


H 


zz.t 




X 


•* • ► 




b- 


UU UU 


• ^UU >-H 


m »-hO ••* *—* 


U 




m *hQ 


• ». 


h- 


ll ad 




0 


CD U 


XX 


CJU ad -> x 


CD 


^< 3 . 


G — IX 




00 


X •*< 




0 




XXI— 


x h~ ,y v.f u 




• •'LU | — 


X> 3 d 






aJ llx 






"h- 


TfcOX 


OUOQ 


• *1 


X 2 00 


OU 


CO 




00 XO 




00 


H-2 


o< 


• II ••TOO 


i-a.a :2 


• ^ 11 




00 


► •Sfcl— 




u 


<U 


Q h- 


a: •• ••'in — • adh- 


< 1 %UU 


Qd •• 


n 


CD ‘ LU 




u 


o>: 


X— ‘^) 


l -ooad. u O 


O 


OO 


1 -OO 


tx 


UJ ULCNJ OCD 




a 


zz 


< — 12 


Xadad^ ••'X •• cd 


2 dO 


xx ad 


w ••*•»> 


adO 


— 2 




2: 


ou 


O 


> H 0— ‘oud 


□ Z^Q 


> U 


OX~i 


u 1—0 ^<12 




<t 


00 


—•GO 


O •• H- | OJh- 


o<o<i 


0 


^ 1 1 


> UJD>OD >-h 




X 




XH- 


i| uado/)incoxo 




CJ 


11 ux 


L/i-^n* 


< 00 XX—* CD 






II OO 


• • co x ad *i— x 


••'Zl^o 0 


• •■ox 


X 


to 


zauj 






• •CD< 


ro< ••'iivfo 


oO»~«ad)— 


co< 


• r> . *^Q || 


a: 


•*< II O 




00 CDO 


O 


iJd U • •'fO • • u 11 


CO.O II O 


ad cQ • ^ 


omz" ' 


ad uo_j • • 


LL 


LU<UJZ 


X2_J 


HCNja:^ 


< u 


• •CD 


»— cm <n ad < n 


LUULQClD-iO 


O 


CO -j coo 


u 


.^O— ‘ + ado^J 


JCQ-4 


•0^% + x> 


CD X 11 XQ 




<0 


0 


-ih 


»— 1 + ll u — + 2: 


O 1 


ad^ 


-«+ ll 


u n ■ 


uo 


•• X 


CXI 


O II O 


— 1-2 


+ co •• 00 **omu 


ll G 


X 


+ ro •• 1 


□d If) CC • - 1 


1— u Od LU .~o 


x 


• • 


02 


ad u 


adadO<r. — ' 2 -ado 


.. O 


-Ih 


CCcC DU< II U 




— <r 




h- CM 


1 IU 


<mx 


> + Xco +x + 


c\J —1-2: 


h- 4 - ad 


CO •• + 


*-» Jaao:^* 


*>X 


zodcMrzxos 


x f -n <r -co**' 


ad (xix u 


x n nn-ncr 


OoO <C || COO'* 


UJ 


II l~—' 


O^fcO 


00 ^ 2:0 an z— 4 


11 <irx 


oadz^oucu: 1 


nO u 


x x— ‘ od< 


2: 


■XI 0 


- II 0 


11 11 — • 11 11 ad 11 11 


••'TviXOX 


ii 11 ^ 


II II II . 




•^HOad <0 


21 X X CO U — 1 — 1 2 


’ •• • • cD • 1 • • ^ • • • • 


QdZo^OZ 


: •• •* D 


• • • • • • . 



>-« 3 £ 
>00 YJ 1 
<1 II 
XX I — •* I— 
— 'X 2 02 

o<a. xcdu 

UJ X 

CO X 

o 
o 



<L 



i. 

a 

o 



~-*xi ui: 

X I II <1 

» • « t ) 

OXrvjc/) 
m x h 2: 
x *— • 
<1 o 
H- LU 

00 a J 



0< II CQXXlU^ icWU^ crX^O 
O XU cxi — coox adaox xu x<x o x 

UJoauuu ilu 2**o 

2b-*— • i/jmmqjoj ujqhm^ c/)uj 

^UJlLLJ 2UJXUU--J 

oo_c*— *u ujo _£>-<*— tuj 

UJ 

aj 



•* ii o *-< -n<r un <f sf 
-» OcXrd'Qaicd x 

Qd QL LU UJ 



174 



EX ( R 5 » M VC l 0, 64, SELF ) ) ; 

R3 : = R3 + R5 +2 ; CTPTR: = R3; 

ROJ =■ 1 ; SEM := RC; QCTC EXIT1; 

ENC; 

CCNCAT; GETCHAR; R2 : -CLASS ; 

IF R2 = 2 0 OR R2 =2 1 THEN CCMMENT SIGNED EXPONENT; 
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E EG I N COMMENT CASE 7 HANDLES "51" 
GETCHAR; R C : =3 0 ; SEM: = RO; 

END; COMMENT END CASE 7; 



BEGIN COMMENT CASE 8 HANDLES ".."_SC£LE SYNECL; 

GETCHAR; R 2 : =C LA S S ; 

IF R2-»=8 THEN COMMENT •' IS CEC INAL POINT OF NUMERIC CONSTANT 
B E G IN- 

R2:=2; GOTO STARTSCAN; 
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ENO; COMMENT END OF CASE 15 
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ELSE COMMENT OUTPUT "|" SEMANTICS; 
BEGIN RC:=15; SEM:=RC; END; 

ENC; COMMENT END OF CASE 25; 
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GLOBAL PROCEDURE BS YNTHTWO ( R4 ) ; COFFENT CONTINUATION CF BSYNTHES IZE 

(CASES 64 TFRU 97); 

BEGIN ARRAY 7 INTEGER SAVEREGS; ST F ( P C , R6 , S A V E F E G S ) ; 
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RC :=CTR+ 1 ; CTR:=RO; 
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BEGIN CCMMENT 21.- <FUNCTI0N C LA US E > : : =<FU NC T I CN CLAUSE> , <VAR> 
Rl: = ESP SELL 1; 

R 2 : = k10+EF1RSTACK + R1 ; 
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MM ENT CASE 5, LOOK AHEAD (FOR A PRODUCTION 
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: = R3 + i SHLl U R5 := ALBSTATE; 
SEGBASE + SEGTA6LE(R5) 4 R3; LH(R5,B7) 
:= R3 SHRL l; 
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M ENT ERROR OCCURRED IN A LOOK-AHEAD STATE; 
R4 :=3ANALYZE ; 

R A : = R4 + #652; 

RT RKTG AN AL : =R4 ; 

SCAN; COMMENT SKIP THE NEXT SYPECl; 
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